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I.   INTRODUCTION 

The  investigation  of  wave  rotors-^  and  their  possible 
application  in  gas  turbine  engines  at  the  Naval  Postgraduate 
School's  (NPS)  Turbopropulsion  Laboratory  prompted  the 
development  of  a  one-dimensional  unsteady  flow  computer 
code.  The  QAZID  method  developed  by  Verhoff  [Ref.  1]  was 
chosen  over  other  methods  [Ref.  2]  for  reasons  which 
included  the  following: 

1.  The  method  is  based  on  the  use  of  characteristics. 
Such  methods  can  model  wave  propagation  accurately. 

2.  The  use  of  a  natural  streamline  coordinate  system 
eases  the  difficult  task  of  computing  with  two  and 
three  dimensional  grids. 

3.  The  equations  are  written  in  a  form  which  allows  a 
straightforward  extension  to  viscous  flows. 

Salacka  [Ref.  2]  verified  the  development  of  the  equations 

and  implemented  a  one-dimensional  Euler  solution  of  the 


^The  wave  rotor  consists  of  simple  tube-like  passages 
along  and  around  the  periphery  of  a  drum  which  rotates 
between  end  walls  containing  inlet  and  outlet  (partial 
admission)  gas  ports.  Compression  and  expansion  processes 
are  arranged  to  occur  in  a  cyclically  periodic  unsteady 
process  within  the  rotor  such  that  a  high  pressure  driver 
gas  is  used  to  compress  a  low  pressure  driven  gas.  The 
compressed  driven  gas  is  led  from  the  outlet  port  to  the 
combustor  and  brought  back  into  the  rotor  as  the  driver. 
The  expanded  driver  gas  exits  an  outlet  port.  Thus  the 
rotor  functions  as  both  turbine  and  compressor  with  direct 
gas-gas  energy  exchange  through  unsteady  wave  processes. 
The  technology  of  such  devices  requires  the  design  of 
appropriate  cycles  using  one-dimensional  calculations,  and 
analysis  of  the  multi-dimensional  unsteady  flows  such  as 
occur  during  port  opening  and  closing. 
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shock  tube  problem  in  the  EULERl  code.  The  EULERl  code  was 
limited  to  high  pressure  set  on  the  left,  with  flow  and 
shock  velocities  to  the  right.  The  shock  wave  was  tracked 
and  corrected  for  in  the  flow,  but  the  contact  discontinuity 
was  not,  and  the  expansion  wave  was  not  tracked.  The  code 
also  did  not  treat  end  boundary  conditions. 

The  present  work  extended  the  EULERl  code  of  Salacka  to 
become  the  "Euler  ID  Version  2"  or  E1DV2  code  which: 

1)  can  handle  both  right  and  left  traveling  flow  and 
discontinuities 

2)  implements  tracking  and  correction  of  the  contact 
discontinuity 

3)  implements  tracking  of  the  expansion  wave 

4)  models  closed  wall  and  open  end  boundary  conditions 

5)  models   shock   and   contact   surfaces   within   a   grid 
interval. 

Section  II  and  Appendix  A  describe  the  analysis  underlying 

the  revisions.    The  Fortran  code,  E1DV2,  is  detailed  in 

Section  III  and  Appendix  C  and  graphical  results  of  four 

test  cases  to  demonstrate  the  new  features  of  the  code  are 

given  in  Section  IV.    A  discussion  of  these  results  and 

limitations   of   the   present   code   follow   in   Section  V. 

Conclusions  and  recommendations  are  made  in  Section  VI. 

Appendix  B  contains  instructions  to  operate  the  code  on  the 

NFS  computer  and  the  FORTRAN  listing  is  included  as  Appendix 

D. 
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II.   ANALYTICAL  AND  COMPUTATIONAL  APPROACH 

A.   QAZID  DESCRIPTION 

The  QAZID  analysis  and  numerical  solution  scheme  is  an 
explicit,  non-conse2rvative  method  that  uses  extended  Riemann 
variables  to  model  the  multi-dimensional  Euler  equations  in 
a  natural  streamline  coordinate  system.  Table  I  lists  a 
summary  of  the  applicable  equations  which  are  derived  in 
detail  in  [Ref .  2] . 

1.   The  Coordinate  System 

Figure  2.1  shows  the  natural  streamline  coordinate 
system  (s,n,m)  relative  to  a  fixed  rectangular  cartesian 
system  (x,y,z).  The  right-hand  orthogonal  system  moves  in 
curvilinear  translation  along  a  streamline.  The  "s" 
direction  is  measured  in  the  direction  of  the  flow,  tangent 
to  the  streamline.  The  "n"  direction  is  perpendicular  to 
the  s  direction  in  a  plane  perpendicular  to  the  x-z  plane. 
The  "m"  direction  is  normal  to  the  plane  containing  the  n 
and  s  directions.  The  angle  p  is  the  angle  between  the  s-n 
and  x-y  planes,  and  the  angle  9  is  the  angle  between  the 
velocity  vector  and  the  x-z  plane  in  the  s-n  plane.  In  the 
one-dimensional  problem  treated  here,  the  s  direction  is 
such  that  velocity  to  the  right  is  positive,  and  to  the  left 
is  negative.   [Ref.  l:p.  2] 
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TABLE  I 
SUMMARY  OF  THE  EULER  EQUATIONS 

Definitions 

Speed  of  sound        A   =  //P/p  (I.l) 

Modified  entropy  dQ 

change  dS  =  -  -^  (1.2) 

so  that 

^  =  S  =  ^-(yziyiSY  -  ln(P/p^)]      (1.3) 

Extended  Riemann 

variables  Q  =  q  +  As  (1.4) 

R  =  q  -  As  (1.5) 

Euler  Equations 

||.,q.A,|2  =  -I=iA(S-^,4„-^)] 


.Y=l^,3[|i,_e|ij  (1.7) 


ll+qf  =  ,  (1.3) 

li+q^  =  -  ^^  S  In  P  (1.9) 

at   ^  3s      Yq  3n 

M  +  q^  =  --^ 3  IJ'P  ■  ■   (1. 10) 

at   ^  3s      yq  cose   3m 

*  •        . 
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streamline 


Figure  2.1   The  Natural  Coordinate  System 

2  .   Extended  RieTTiann  Variables 

The  "Riemann  Variables"  in  most  publications  are 
defined  as 


Ri  = 


q-  (:^)A 


and 


(2.1) 


R-,  = 


2  =  q  +  (;7n)A 


where  q  is  the  velocity  magnitude,  A  is  the  speed  of  sound, 
and  Y  is  the  ratio  of  the  specific  heat  at  constant  pressure 
to  the  specific  heat  at  constant  volume  for  a  particular  gas 
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[Ref.  3:p.  5].   Verhoff  modified  the  definition  to  obtain 
"Extended  Riemann  Variables,"  defined  as 

Q  =  q  +  AS  (1.4) 

R  =  q  -  AS  (1.5) 

where  S  is  the  modified  entropy  given  in  Table  I  [Ref.  l:p. 
2]. 

3  .   The  Governincr  Equations 

The  Euler  equations  in  Table  I  were  developed  in 
detail  [Ref.  2: Appendix  A]  from  the  equations  for 
conservation  of  mass,  momentum,  and  energy  for  a  control 
volume.  The  underlying  assumptions  comprise  inviscid  flow, 
negligible  body  forces,  no  heat  transfer,  and  a  perfect  gas. 
These  assumptions  and  the  definition  of  modified  entropy 
were  used  in  transforming  the  equations  into  a  form  suitable 
for  solution  using  the  method  of  characteristics. 

B.   CHARACTERISTIC  SOLUTION 

Equations  (1.6),  (1.7),  (1.8),  (1.9)  and  (I. 10)  are  a 
system  of  slightly  coupled  quasi-one-dimensional  partial 
differential  equations  (PDE)  with  eigenvalues  q+A ,  q,  and  q- 
A.  These  equations  can  be  rewritten  along  the  characteris- 
tics in  the  time-space  domain  to  become  ordinary 
differential  equations  (ODE)  which  are  solved  by  quadrature 
and  interpolation.   The  propagation  of  each  characteristic 
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curve  along  its  particular  trajectory  is  expressed  by  the 
respective  ODE.   [Ref.  l:p.  1] 

Each  in  the  system  of  equations  is  in  the  form 


|^+  A  1^  =  z  (2.2) 

dt      OS 


If  w  =  w(s,t)  it  is  shown  by  Salacka  [Ref.  2:pp.  20-23]  that 


X     =     ^  (2.3) 

dt 


and 


^  _  „  (2.4) 

dt     ^ 


where  A  describes  the  characteristic  curve  along  which  w 
changes. 

In  this  section  the  solution  of  the  3D  Euler  equations 
given  in  Table  I  is  described.  The  computer  code  developed 
in  the  present  work,  however,  was  for  the  ID  case  wherein 
equations  (1.9)  and  (1. 10)  are  not  required,  and  only  the 
three  remaining  equations  (1.6),  (1.7),  and  (1.8)  are 
considered. 

Equations  (1.6)  to  (1.8)  for  one-dimensional  flow  may  be 
expressed  in  matrix  form  by  setting 
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w   = 


and 


Q 
R 
S 


[X]   = 


q+A 

0 

0 

0 

q-A 

0 

0 

0 

q 

z   = 


^(S-^)[q-7ilA3^ 


T^(S-^Hq+^l3 


Then  equation  (2.2)  becomes,  for  the  equation  set, 


3t  ^  ^^^  3¥  -  ^   ' 


Figure  2.2  shows  the  characteristic  curve  in  the  space- 
time  domain  between  two  nodes  within  the  computational  mesh. 
Equation  (2.2)  has  a  solution 


_      _    t4dt  _ 

5w  =  -  Aw  +  J     z  dt 
t 


(2.5) 


where  6w  is  the  change  due  to  time  at  a  fixed  location,  and 
Aw  is  the  change  due  to  displacement  at  a  fixed  location, 
along  the  characteristic  curve.  The  value  of  Aw  is 
calculated  by   interpolation   through   an   iterative   scheme 
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t+  dt 


L 


ds/dt 


A 


1-1 

-4- 


Interpolated 
point 


dt 


h 


6w  =  W3  -  w^^ 


Aw  =  w   -  w, 
s.    A 


Figure  2.2   Characteristic  Curve  Within  Computational 
Mesh 


using  initial  guesses  for  the  characteristic  slope,  A ,  from 
values  at  time  level  t.  The  line  integral  is  approximated 
by 


t-Kit  B  - 

/    7dt  =  /  f  ds 

:  A 


S^-AS 


/'|dS 


y(S.-(S.-AS)) 
All 


=  2 (As/A) 


=   2(5t) 


(2.6) 
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The  spatial  derivatives  of  q  and  A  in  T"  are  estimated  from 
values  at  A  and  s^.  Finally,  8w  is  calculated,  and  each 
node  is  updated  to  the  next  time  level. 

The  Courant-Friedrichs-Lewy  (CFL)  convergence  condition 
requires  the  domain  of  dependence  of  the  numerical  approxi- 
mation to  include  the  domain  of  dependence  of  the  differen- 
tial equation  [Ref.  4:pp.  336-337].   Figure  2.3  shows  that 


t  +  dt 


time 


Figure  2.3   Computational  Grid  for  the  QAZID  Method 

the  computational  grid  for  the  QAZID  method  satisfies  this 
condition  by  having  interpolated  initial  data  points  (points 
1,  2,  and  3)  in  between  previous  solution  nodes  (points  4, 
5,  6)  .  The  q+A  characteristic  is  estimated  from  values  at 
point  4,  q  characteristic  from  values  at  point  5,  and  q-A 
characteristic  from  values  at  point  6.   The  use  of  a  maximum 
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time  step  keeps  the  domain  of  dependence  of  the  numerical 
scheme  just  outside  that  of  the  actual  equations,  aiding 
convergence.  Unlike  finite  difference  schemes  that  are 
conservative  and  require  a  numerical  diffusion  or  viscosity 
to  handle  oscillations  or  smearing,  this  method  is  stable 
without  numerical  smoothing  or  artificial  dissipation  [Ref. 
5:pp.  562-583].  However,  the  equations  do  not  account  for 
the  discontinuities  across  shocks  and  contact  surfaces 
properly.  Thus  after  each  time  step  a  one-point  correction 
technique  is  used  to  correct  for  shocks  and  contact 
surfaces. 

C.   DISCONTINUITIES 

1.   Expansion/Rarefaction  Waves 

The  head  and  tail  of  the  expansion  wave  travel  along 
the  characteristic  as  gradient  discontinuities.  Flow 
velocity,  speed  of  sound,  pressure,  and  density  are  continu- 
ous across  a  gradient  discontinuity  but  the  spatial  deriva- 
tives are  discontinuous.  Entropy  remains  constant  through 
the  rarefaction  wave.  The  head  of  an  expansion  wave  moves 
into  undisturbed  flow  with  a  speed  q+A,  while  the  tail  of 
the  expansion  wave  has  a  velocity  q-A.  No  special  treat- 
ment of  these  waves  is  required;  the  characteristics  method 
accurately  tracks  and  models  their  influence.  Expansion 
waves  are  generated  when  two  shocks  collide,  a  diaphragm  is 
burst,  a  contact  surface  and  shock  intersect,  a  shock  leaves 
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an  open  boundary,  or  an  open  boundary  has  a  pressure  lower 
than  the  pressure  inside  the  tube.   [Ref.  3:pp.  13-15] 
2.   Shocks 

Shocks  are  created  when  a  diaphragm  is  burst, 
compression  waves  generated  at  an  open  boundary  coalesce 
into  a  wavefront  with  sufficient  strength,  or  when  a  shock 
and  contact  surface  collide.  Pressure,  velocity,  density, 
and  entropy  are  discontinuous  across  a  shock  [Ref.  6: pp.  30- 
31].  The  equations  of  motion  (1.6) -(I. 10)  are  not  correct 
for  calculating  changes  through  shocks.  A  method  to  correct 
for  a  shock  is  to  use  the  ratio  of  the  jump  in  the  extended 
Riemann  variable  across  the  shock  to  the  speed  of  sound 
downstream  of  the  shock  to  find  the  incoming  Mach  Number 
relative  to  the  shock  (w)  [Ref.  l:p.  3].  Figure  2.4  shows 
the  case  of  a  shock  headed  to  the  right.   The  shock  velocity 
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Figure  2 . 4   Shock  Wave  with  High  Pressure  on  Left 
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(Vg)  is  imposed  on  the  flow  to  produce  a  stationary  shock 
condition.  Flow  variables  are  then  corrected  using  normal 
shock  relations.  Figure  2.4  applies  to  a  condition  where 
high  pressure  is  on  the  left.  The  shock  is  moving  to  the 
right  at  Vg  into  flow  with  velocity  qg.  Table  II  lists  the 
equations  developed  by  Salacka  [Ref.  2]  for  relating  the 
extended  Riemann  variable  change  to  Mach  Number.  Velocities 
are  non-dimensionalized  by  the  speed  of  sound  downstream  of 
the  shock  direction,  Ag,  and  pressures  and  densities  by  the 
respective  values  downstream. 

Figure  2.5  depicts  equation  (II. 2)  over  a  range  of 
Mach  Numbers  from  1.0  to  4.0.  The  curve  is  approximated  by 
the  quadratic  equation 

'^a"^  =   -2.7574  +  3.1573W  -  0.2863w2  (2.7) 


If  the  high  pressure  is  to  the  right  the  shock  moves 
as  Fig.  2.6  illustrates,  and  the  governing  equations  are  as 
listed  in  Table  III.  Again,  downstream  conditions  are  used 
to  non-dimensionalize  velocity,  pressure,  density,  and  the 
Riemann  variable  change.  The  development  of  the  equations 
in  Table  III  is  given  in  Appendix  A.  A  plot  of  equation 
(III.  2)  over  a  range  of  w  from  1.0  to  4.0  is  shown  in  Fig. 
2.7.   The  curve  is  approximated  by  the  quadratic  equation 


_lJ^  =   2.7574  -  3.15732W  +  0.28.63w2  (2.8) 

A, 
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TABLE  II 
SHOCK  EQUATIONS  FOR  HIGH  PRESSURE  ON  LEFT 


Definitions 

Relative  Incoming        ii^      ^'^r"'^  ^ 

Mach  Number:       ^  ~  ~  "a~  ~  ~  .  ^  (II.  1) 

^B         ^B 

EcTuations 

Q  Riemann 
Variable  Change: 

^a"^B  _   2  (w^-1)  ,  ,  2  ,  ,^A  ,.         ^Ar   1    n^r/2Y,,2 

^■"-^   (Y+l)w^ 
Speed  of  Sound  Ratio: 

^  =  Ww[2(Y-l)il^3r=l„2,[Jr„2.,]]^/2         (I,. 3) 


Pressure  Ratio: 


^  =  JXw^  -  III  (II-4) 

Pg    Y+1     Y+1 

Density  Ratio: 


^  =   (T+l)w^  (II. 5) 

^B     (y-1)w^+2 
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TABLE  II  (CONTINUED) 


Velocity  Change: 

V%     2(w2-l) 


Ag      (Y+1)w 


(II. 6) 


Entropy  Change : 


^A^B      V(Y-l)^^^   Y+1  ^    ^-1    (y+Dw^ 


(Y-l)w  +2,  (II. 7) 
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Figure  2 . 6   Shock  Wave  with  High  Pressure  on  Right 
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TABLE  III 
SHOCK  EQUATIONS  FOR  HIGH  PRESSURE  ON  RIGHT 


Definitions 

Relative  Incoming 
Mach  Number: 


u      q  -V 
A       A 


Equations 

R  Riemann 
Variable  Change: 


-    (IZl))(ill£)4^)Y]  (III. 2) 

^^^        (Y+1)w 

Speed   of  Sound  Ratio: 


7^    =     7-Vt-[2(y-1)[1  +  ^w2][^w2  -  1]]  (III. 3) 

A  (y+1)w     ^'      '  ■•  2  y-l 

Pressure  Ratio: 


^B     2y  2   Y-l 


Density  Ratio 


!a  ^   (Y^l)w^  .   (III. 5) 

^B     (Y-l)w^  +2 
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TABLE  III  (CONTINUED) 


Velocity  Change: 


V^A     2(lV) 


2,  (III. 6) 


^A      (Y+1)^ 


Entropy  Change: 


^B^A      V(Y-l)^^^   Y+1  J    Vl^   \^+i)w2 
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An  examination   of   equations   (II. 2)   and   (III. 2) 
reveals  that 


^A  B 


This  is  expected  since  in  flow  to  the  right,  the  Q  extended 
Riemann  variable  is  associated  with  the  q+A  characteristic. 
Also,  since  velocity  is  defined  as  positive  to  the  right,  q 
is  positive.  But  for  flow  to  the  left,  velocity  is  defined 
as  negative,  thus  q  is  negative.  Moretti  [Ref.  3]  showed 
that  the  downstream  running  Riemann  variable 
(q+A  characteristic)  has  a  lower  magnitude  of  discontinuity 
across  a  normal  shock  than  the  upstream  running  Riemann 
variable  (q--^  characteris-tic)  ,  and  is  thus  preferable.  In 
flow  to  the  left,  the  Riemann  variable  associated  with 
downstream  is  the  R  Riemann  variable,  though  the  character- 
istic associated  with  the  R  Riemann  variable  is  q-A ,  in  flow 
to  the  left  q  is  negative  and  thus 

q-A   =   -(|ql  +  A)  (2.9) 

Therefore,  in  fluid  traveling  left  the  R  Riemann  variable  is 
used  to  find  Mach  Number,  and  in  fluid  traveling  right  the  Q 
Riemann  variable  is  used. 
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If  the  shock  is  between  two  nodes  with  no  contact 
surface  within  the  same  interval,  the  method  to  calculate 
the  Mach  Number,  w,  is  as  follows: 

1)  The  change  in  the  appropriate  extended  Riemann  varia- 
ble across  the  interval  is  measured;  R  variable  for 
flow  left,  and  Q  variable  for  flow  right.  Call  this 
change,  Am. 

2)  Use  Am  in  equation  (2.7)  or  equation  (2.8)  for  the 
appropriate  flow  to  calculate  w. 

3)  With  equation  (II. 2)  or  equation  (II. 3),  for  flow 
right  or  left  respectively,  use  w  to  calculate  the 
analytical  Riemann  variable  change,  Ae. 

4)  If  this  exact  value  of  Ae  is  not  equal  to  Am  then 
calculate  a  new  guess,  Ag  from 

Agi+i   =   Agi  +  (Am  -  Ae)  (2.10) 

and  then  repeat  steps  2  to  4  until  Ae  equals  Am. 

Thus  the  correct  value  of  w  is  determined,  and  shock 
corrections  from  the  normal  shock  relations  are  valid.  V3 
is  determined  from  equation  (II. 1)  or  equation  (III.l) 
depending  on  flow  direction.  Flow  direction  will  be 
initially  determined  by  the  side  with  high  pressure.  High 
pressure  on  the  left  means  flow  will  travel  to  the  right. 
Likewise,  high  pressure  on  the  right  means  flow  will  travel 
to  the  left. 

3 .   Contact  Surface 

A  contact  surface  is  a  boundary  between  regions  of 
flow  which  are  different  in  composition  or  which  have 
undergone  different  thermodynamic  histories.  Thus  a  contact 
surface  is  formed  when  the  diaphragm  is  burst  in  a  shock 
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tube  separating  the  gas  initially  in  the  driver  from  the  gas 
initially  in  the  driven  tube  [Ref.  6:pp.  23-29].  In  a  wave 
rotor,  a  contact  surface  would  separate  the  combustor  gases 
from  the  cooler  inlet  air.  Contact  surfaces  are  also  caused 
by  two  shocks  of  opposite  families  colliding  or  a  shock  over 
taking  a  shock  of  the  same  family  [Ref.  3:pp.  15-18]. 

Figure  2.8  illustrates  the  changes  in  physical 
properties  through  the  contact  surface  in  the  shock  tube 
problem.  The  gas  to  the  right  has  been  compressed  and 
heated  by  the  shock  wave,  with  that  to  the  left   cooled   and 
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Figure  2.8   Behavior, of  Physical  Properties  Through 
a  Contact  Surface 
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expanded.   The  density,  speed  of  sound,  and  modified  entropy- 
are  discontinuous  across  the  contact  surface. 

Since  pressure  is  constant  across  the  contact 
surface,  using  the  perfect  gas  equation  of  state  and  the 
first  law  of  thermodynamics  it  is  shown  in  Appendix  A  for 
the  shock  tube  problem  that 

A  /A,  =  exp   ^    ^  ^  (2.11) 

A  B 

Since  the  flow  behind  the  contact  surface  to  the 
tail  of  the  rarefaction  wave  is  isentropic,  the  value  of  Sg 
will  be  known.  The  value  of  S^  is  the  value  of  entropy 
behind  the  shock.  Subtracting  equations  (1.4)  and  (1.5) 
from  each  other  and  dividing  by  entropy  S3,  Ag  can  be 
determined.  Thus  the  unknown  speed  of  sound  A a  is  obtained 
from  equation  (2.11).  With  qg  equal  to  q^^,  and  S^  the 
Riemann  variables  just  behind  the  contact  surface  are  calcu- 
lated from  equations  (1.4)  and  (1.5).  For  a  contact  surface 
traveling  to  the  left  it  is  only  necessary  to  interchange 
the  subscripts.  The  velocity  of  the  contact  surface  is 
easily  determined  since  it  moves  at  velocity  q  along  the  q 
characteristic  line  associated  with  S.  [Ref.  3:p.  16] 
4 .   Contact  Surface/Shock  Interaction 

When  the  shock  and  contact  surface  are  within  the 
same  interval  the  calculation  of  the  shock  incoming  Mach 
Number,  w,  must  be  modified.   Figure  2.9  shows  a  plot  of  the 
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Figure  2.9   Modified  Entropy  Distribution  for  Shock 
and  Contact  Surface  Traveling  Right 


modified  entropy  change  across  the  interval.  The  use  of  the 
Riemann  values  at  the  nodes  to  estimate  the  Riemann  variable 
change  across  the  shock  would  be  incorrect.  The  correct 
Riemann  variable  change  would  be,  for  flow  to  the  right, 


ASK  = 


Q^-Q, 


S  ''B 


A 


B 


(2.12) 


The   correct   Mach   Number,   w,   is   determined   using   the 
technique  of  Moretti  modified  for  QAZID  [Ref.  3:pp.  23-24]. 

Referring  to  Fig.  2.9,  the  technique  for  flow  to  the 
right  is  as  follows: 

1)  Calculate  w  as  if  no  contact  surface  were  in  the 
interval.  With  values  at  node  i+1  known,  determine 
S3.  Then  use  w  and  So  in  equation  (II. 7)  to  solve  for 
Sp^.      This  is  the  initial  estimate  of  S^.      Let  Sg'  =  Sg. 

2)  The  Q  Riemann  Variable  change  across  a  contact  surface 
is  shown  in  Appendix  A  to  be  given  by 
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,      .    °V:^    -     ,e'"B--^^'"'^"s    -S     li^  (2.13) 

Acs*  -7        -    I®  ^A'    B'^  :s:^  ^        ' 

3)      Define 

Am    =    ^^  (2.14) 

^B 


then 


Am    =     ASK  +  ACS  (2.15) 

can  be  solved  to  obtain  ASK. 

4)  Using  ASK  as  Am  in  the  shock  iteration  scheme  given  in 
Section  II. C. 2  calculate  a  new  w. 

5)  With  this  new  w  and  Sq  use  equation  (II. 7)  to  obtain  a 
new  Sj^. 

6)  Compare  Sp^  with  S3.  If  they  are  not  equal  to  within 
an  acceptable  error,  calculate  a  new  estimate  for  Ss 
using 


S-     =  S^  +  (S,  -S  )  (2.16) 

^i+l      ^i     ^^   2 

Iterate  until  convergence  is  achieved. 

This  will  result  in  the  proper  w  for  a  condition 
with  shock  and  contact  surface  interacting. 

For  flow  to  the  left,  it  is  only  necessary  to  inter- 
change the  subscripts  A  and  B,  and  use 

^''^'     ,        <^^V-^B'^,  '    ,\  (2.17) 
J =  [exp            Sb'^A'^^:^^  ^    ^ 

A  -^ 
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for  the  extended  Riemann  Variable  change.    Figure  2.10 
illustrates  the  left  traveling  condition. 


Shock 


contact  surface 


Entropy 


Figure  2.10  Modified  Entropy  Distribution  for  Shock 
and  Contact  Surface  Travelina  Left 


D.   BOUNDARY  CONDITIONS 
1.   Open  Boundary 

At  the  open  boundary,  a  reference  pressure  ratio, 
Pj-ef  =  Poo/Pa  is  specified,  where  P„  is  the  pressure  to  be 
held  at  the  boundary,  and  Vj^  is  the  pressure  just  inside  the 
tube.  Only  the  case  where  P^^  <  P^  is  considered.  This 
means  that  an  outflow  condition  at  the  boundary  will  result 
when  P^  <  P^/  with  an  expansion  wave  traveling  in  from  the 
boundary.  Thus  locally  at  the  boundary,  conditions  are 
isentropic. 

The  computational  grid  for  the  left  boundary  is 
shown  in  Fig.  2.11.   A  phantom  node,  L,  is  used  outside   the 
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Figure  2.11   Left  Boundary  Computational  Grid 

computational  mesh  to  enable  simple  enforcement  of  constant 
pressure  and  entropy  at  the  mesh  boundary  node,  1. 

The  approach  is  to  determine  the  required  variables 
at  node  L,  then  transfer  these  values  onto  node  1,  and  vary 
q  at  the  boundary  to  meet  the  required  boundary  conditions. 
First,  using  P^-ef  cit  node  L  and  S  at  node  2  in  equation 
(1.3)  rewritten  in  the  form 


pR  '^  ((VP^^f)(exp 


(S-;4r^(-Y(Y-l))   -1/Y 


)) 


(2.18) 
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pj^,  the  density  ratio  at  the  boundary,  is  calculated.  Using 
the  perfect  gas  equation  of  state  in  equation  (2.18)  the 
temperature  ratio,  Tr  is  given  by 

,  ..    (Y(l-y)(s— ir) 

T   =   (p]^-^h(exp         ^"M  (2.19) 

and  can  be  calculated  once  p^     is  known.    With  an  initial 
velocity  at  the  boundary,  q^,,  assumed  the  Riemann  variables 
R  and  Q  are  determined  for  node  L  using 


R   =   ^b  -  ""Tr  S  (2.20) 


and 


Q      =      q^   +  ^   S  (2.21) 

Subtracting  equation  (2.20)  from  (2.21),  and 
dividing  by  twice  S  yields  A  at  node  L,  where  A  =  /'y  RqT. 
The  values  of  R,  Q,  A,  q^,  and  S  are  now  known  at  node  L. 
These  values  are  assigned  to  node  1,  and  the  QAZID  algorithm 
is  applied  to  the  boundary  node  as  if  it  were  an  interior 
node.  The  result  is  an  estimate  of  the  new  values  for  R,  Q, 
and  S  at  node  1.  These  are  used  to  obtain  a  new  estimate  of 
the  pressure  ratio  at  node  1,  call  it  Prjj.  Prn  is  compared 
with  Pj^ef'  ^"^  ^^®  ^^^  value  of  S  with  the  old  value  of  S  at 
node  1.   A  new  qj-,  is  calculated  by  solving  equations  (2.20) 
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and  (2.21)  simultaneously.  The  process  is  repeated  until 
entropy  and  pressure  remain  constant  at  the  boundary.  For 
the  right-hand  boundary.  Fig.  2.12  shows  the   computational 
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Figure  2.12   Right  Boundary  Computational  Grid 

grid  with  the  phantom  node,  r,  to  the  right  of  the  mesh 
boundary  node,  n.  The  procedure  for  the  right  boundary  is 
the  same  as  for  the  left  boundary. 

When  a  shock  travels  across  the  open  boundary,  the 
boundary  is  first  corrected  using  the  method  described  in 
Section  II. C. 2.  Subsequently,  the  pressure  is  returned  to 
give  the  constant  value  specified  for  ^^Qft    using  the  above 
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procedure.  The  result  will  be  an  expansion  wave  traveling 
inward . 

For  supersonic  flow,  all  of  the  variables  are  deter- 
mined from  values  at  the  interior  nodes  [Ref.  l:p.  3]. 
2  .   Closed  Boundary 

The  solid  boundary  is  imposed  by  setting  the 
velocity  at  the  boundary,  q,  equal  to  zero.  The  same 
computational  grid  is  used  as  that  for  an  open  boundary,  but 
a  different  technique  is  used  in  assigning  values  to  the 
phantom  node.  Referring  to  Fig.  2.11,  the  velocity  at  node 
2,  q2 ,  is  known.   By  setting 

qL  =   -  ^2  (2.22) 

the  wave  impacting  the  boundary  will  be  met  by  a  wave  of 
equal  velocity  but  opposite  in  direction  and  will  result  in 
node  1  appearing  as  a  solid  boundary.  Further,  to 
facilitate  the  QAZID  method,  set 

Rl    =   -  Q2  (2.23) 

Ql    =   1^21  (2.24) 


Sr    =  So  (2.25) 


^L   =    ^'A  (2.26) 
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This  will  enable  the  computation  of  the  new  boundary  node  1 
values  as  an  interior  point  with 

qi  =   0 

The  right  boundary  is  handled  in  the  same  way. 

Figure  2.13  illustrates  the  sequence  of  events  when 
a  shock  reflects  off  a  solid  boundary  on  the   right  [Ref.  7: 
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Figure  2.13   Shock  Reflecting  at  Solid  Boundary 

pp.  172-195].  Since  the  velocity  behind  the  reflected 
shock,  q-Q,  is  zero,  and  the  velocity  in  front  of  the  shock, 
q;^,  is  known,  the  velocity  gradient,  i\q,  over  the  shock  is, 
in  non-dimensionalized  form,  given  by 
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Aq   =   (qs  -  qA)/^A  (2.27) 

Rearranging  equation  (III. 6),  and  using  y=  1.4  it 
can  be  shown  that 


w   =    \/l  4-  0.36(Aq)2  -  0.6Aq  (2.28) 

This  is  an  exact  analytical  value  for  w  based  on  stationary 
normal  shock  relations.  The  speed  of  sound  ratio,  '^b/'^A'  ^^ 
calculated  from  equation  (III. 3)  and 

^B   =   Aa(^b/^a)  (2.29) 

Entropy  behind  the  shock,  S3,  is  determined  from  equation 
(III.  7)   since  Sp^     is  known.    Then  the  extended  Riemann 

variables,   R   and   Q,   behind   the   reflected   shock   are 

calculated  from  equations  (1.4)  and  (1.5)  respectively. 

For  a  shock  reflected  from  the  left  boundary,  the 

subscripts  A  and  B  are  interchanged  and  using  equation 
(II.  6)  the  Mach  Number  is  given  by 


W   =  \/l  +  0.36(Aq)2  +  0.6Aq  (2.30) 

The  equations  from  Table  II  are  used  instead  of 
those  from  Table  III  (used  in  the  case  of  reflection  from 
the  right  boundary) ,  since  the  shock  is  now  traveling  from 
left  to  right. 
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III.   FORTRAN  PROGRAM  E1DV2 

A.   GENERAL  DESCRIPTION 

Program  E1DV2  is  a  Fortran  computer  program  which 
calculates  l-dimensional  unsteady  flow  based  on  the  QAZID 
formulation  and  method  of  solution  of  the  Euler  equations  of 
motion.  The  program  has  provisions  for  tracking  in  time  the 
location  of  shock  waves,  contact  surfaces  and  head  and  tail 
of  the  expansion  waves.  Its  intended  application  to  wave- 
rotor  design  and  analysis  explains  the  present  definition  of 
node  points  and  boundary  conditions.  In  its  current  form, 
the  code  describes  flow  in  a  tube  initiated  by  a  diaphragm 
bursting.  The  location  of  the  diaphragm,  whether  the  flow 
is  to  the  left  or  the  right,  and  whether  the  ends  of  the 
tube  are  closed  or  open,  can  be  varied. 

The  E1DV2  program  is  written  in  FORTRAN  77,  and  was 
developed  using  the  IBM  3  03  3  System  370  computer.  The  use 
of  DISSPLA  subroutines  in  plotting  results  requires 
compiling  and  executing  using  VS  FORTRAN  procedures. 
Appendix  B  describes  the  procedures  for  running  the  E1DV2 
program  on  the  Naval  Postgraduate  School  IBM  computer 
system.  A  listing  of  the  code,  which  contains  its  own 
description  in  comment  statements,  is  given  in  Appendix  D. 
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The  code  incorporates: 

1)  first  order  accuracy 

2)  doiible  precision  numerics,  except  for  single  precision 
in  graphical  output 

3)  linear  interpolation  and  extrapolation  algorithms 

4)  quadratic  polynomial  approximations  for  curve  fitting 

5)  non-dimensional  variable  input  and  output 

6)  structured  subroutine  format. 

Table  IV  lists  all  the  subroutines  called  from  the  main 
program  and  brief  descriptions  of  their  purposes.  The 
extensive  use  of  subroutines  was  intended  to  allow  modifica- 
tions and  extensions  of  the  code  without  major 
restructuring . 

B.   THE  MAIN  PROGRAM 

The  main  program  flowchart  is  illustrated  in  Appendix  C, 
Fig.  C.l.  The  conventions  and  a  comprehensive  list  of 
variables  are  listed  in  the  beginning  of  the  program.  The 
number  of  grid  nodes  is  set  by  the  user,  and  must  be  an  odd 
number.  Arrays  are  dimensioned  to  the  number  of  nodes  in 
the  main  program  prior  to  compiling  and  executing. 

Initial  values  for  temperature,  pressure,  and  density 
ratios  at  the  diaphragm  and  boundaries  are  entered  by 
editing.  Also,  the  initial  velocity  distribution  on  each 
side  of  the  diaphragm  is  set,  and  as  well  as  the  ratio  of 
specific  heats.  The  side  with  the  high  pressure  is  identi- 
fied.  Boundaries  are  set  either  closed   or   open.   In   the 
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TABLE  IV 
SUBROUTINES 


TIME 
TRAK 

SWEEP 
CONDI 

C0ND2 


C0ND3 


C0ND4 


C0ND5 


C0ND6 


C0ND7 


C0ND7N 


Calculates  minimum  time  step 

Tracks  discontinuities,  calculates  shock  mach 
number,  w 

Advances  node  values  to  next  time  step 

Calculates  interpolated  values  of  Riemann 
variables,  3q/3s,  and  3A/ 3s  when  no  shock 
or  contact  surface  within  an  interval 

Calculates  interpolated  values  of  Riemann 
variable,  3q/3s,  and  3A/3 s  when  discontinuity 
within  interval  to  right  of  node  or  flow  is 
supersonic  to  the  right 

Calculates  interpolated  values  of  Riemann 
variable,  3q/3s,  and  3A/3s  when  discontinuity 
within  interval  to  left  of  node  or  flow  is 
supersonic  to  the  left 

Called  when  node  is  jumped  by  discontinuity 
to  load  node  information  into  array  for  use 
in  subroutine  CORRCT 

Calculates  interpolated  values  of  Riemann 
variable,  3q/3s,  and  3A/3s  when  discontinuity 
on  either  side  of  node  and  flow  is 
supersonic 

Would  contain  subroutine  to  advance  node 
when  contact  surface  is  in  front  of  shock 
after  intersecting  and  traveling  in  same 
direction.   Not  currently  in  use 

Would  contain  subroutine  to  solve  precisely 
when  and  where  shock  and  contact  surface 
would  intersect  within  an  interval .   Not 
currently  in  use 

Would  contain  subroutine  to  solve  precisely 
when  and  where  shock  and  contact  surface  would 
intersect  if  either  were  jumping  a  node  simul- 
taneously.  Not  currently  in  use 
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TABLE  IV  (CONTINUED) 


C0ND7S 

C0ND8 

CORRCT 

DELTAX 

SKJUMP 

CSJUMP 

EXTRAP 
INTERP 
DBURST 

BONDRY 

SRFLCT 

BBDRY 

BORDER 
PLOT 
EXACT 
LIST 


Would  contain  the  subroutine  to  solve  the 
Rieinann  problem  of  shock  and  contact  surface 
intersecting.   Not  currently  in  use 

Would  contain  subroutine  to  advance  node  after 
shock  and  contact  surface  have  crossed  and  are 
moving  apart.   Not  currently  in  use 

Advances  nodes  jumped  by  discontinuity  to  next 
time  step 

Determines  relative  location  of  discontinuity 
within  an  interval 

Calculates  variable  change  across  a  normal 
stationary  shock 

Calculates  variable  change  across  a  contact 
surface 

Extrapolates  entered  values 

Interpolates  entered  values 

Calculates  initial  Riemann  values  at  node 
where  diaphragm  is  located 

Calculates  values  to  update  left  and  right 
boundary 

Calculates  new  shock  parameters  when  shock 
reflects  off  solid  boundary 

Alternate  interpolating  scheme  near  boundary 

Sets  graphical  borders 

Plots  q,    S,    P,  and  p 

Plots  exact  p  versus  calculated  o 

Lists  calculated  values  in  files  8,  9,  10 


.54 


open  case,  either  constant  pressure,  or  an  adjustable 
pressure  is  specified.  The  latter  case  in  effect  extends 
the  tube,  and  allows  discontinuities  to  disappear  out  of  the 
tube  without  creating  expansion  or  compression  waves.  Exact 
values  for  velocities  of  expansion  wave,  shock,  and  contact 
surface,  and  density  ratio  are  specified  by  the  user  in  the 
input  section. 

Output  is  controlled  by  setting  the  variable  GRAPHS  to 
either  0,  1,  or  2 .  A  zero  creates  three  files  which  contain 
data  calculated  at  the  time  the  call  to  subroutine  LIST  is 
made.  A  value  of  1  causes  plots  of  pressure,  density, 
velocity,  and  entropy  distributions  to  be  created.  When 
GRAPHS  equals  2  a  plot  of  the  exact  density  distribution 
along  with  the  calculated  density  distribution  is  made. 
Calls  to  output  routines  are  determined  by  the  parameter, 
SKIP,  the  number  of  time  steps  between  calls,  which  is 
specified  by  the  user. 

Program  termination  can  occur  for  several  reasons. 
First,  the  program  terminates  when  a  maximum  number  of  time 
steps,  JSTOP,  is  reached.  JSTOP  is  specified  by  the  user. 
Second,  the  program  terminates  if,  during  execution,  any  of 
the  following  conditions  are  met: 

1)  The  shock  intersects  with  the  contact  surface 

2)  The  pressure  at  any  open  boundary  is  higher  than  the 
pressure  at  the  first  node  inside  the  boundary 

3)  The  shock  exits  an  open  boundary. 
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In  these  cases  a  message  is  displayed  on  the  terminal 
describing  the  reason  for  termination. 

C.   THE  SUBROUTINE  PROGRAMS 

1.  The  "DBURST"  Routine 

Figure  C.2  in  Appendix  C  shows  the  flowchart  for 
"DBURST".  The  assumption  that  a  shock  and  contact  surface 
are  formed  immediately  causes  oscillating  numerical  solu- 
tions that  dampen  within  five  to  ten  time  steps.  By 
mathematically  "bursting"  the  diaphragm  prior  to  time  zero, 
a  solution  at  the  node  where  the  diaphragm  is  located  can  be 
determined  at  time  zero.  The  result  is  a  more  accurate 
representation  of  the  wave  structure  and  a  dampening  of  a 
reduced  transient  solution  within  three  time  steps. 
"DBURST"  calculates  the  Riemann  variables  that  would  exist 
behind  a  shock  and  contact  surface  that  have  moved  an 
infinitesimal  amount  after  the  diaphragm  burst,  and  assigns 
them  to  the  node  where  the  diaphragm  was  situated. 

2.  The  "TIME"  Routine 

The  "TIME"  subroutine  was  not  changed  from  that 
developed  by  Salacka  [Ref.  2:p.  35],  The  purpose  is  to 
compute  the  maximum  allowable  time  step  but  ensuring  that 
all  characteristic  trajectories  over  the  time  step  are 
within  one  interval  between  nodes.  The  time  step  is 
determined,  from 
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DELT      =      H/ABS[Q4A]  (3.1) 

at  every  node,  and  the  minimum  time  step  is  used. 
3.   The  "TRAK"  Routine 

This  routine  computes  the  new  locations  of  the 
shock,  contact  surface,  and  head  and  tail  of  the  expansion 
wave  after  the  time  step,  DELT,  calculated  in  "TIME."  In 
Appendix  C,  Fig.  G.3  shows  the  flowchart  for  the  "TRAK" 
subroutine.  The  shock  velocity,  Vg,  incoming  Mach  Number, 
w,  and  pressure,  density,  and  sonic  velocity  ratios  PR,  DR, 
and  AR  respectively  are  determined.  The  equations  for  flow 
left  and  right  are  the  same,  except  for  DQ,  the  velocity 
gradient,  which  is  different  only  by  sign.  Thus  by  proper 
bookkeeping  the  same  equations  are  coded  once  and  used  in 
either  direction.  The  initial  direction  of  the  shock  and 
contact  surface  are  set  from  code  that  interprets  which  side 
has  the  high  pressure  at  time  zero.  The  contact  surface 
speed  is  determined  after  the  shock  speed  is  established. 
The  situation  at  time  zero  is  handled  as  in  "DBURST"  to 
ensure  that  the  shock/contact  surface  interaction  is 
properly  modeled.  Since  there  is  a  certain  transient 
solution  that  decays  after  three  time  steps,  tracking  of  the 
expansion  wave  is  not  initiated  until  then. 

The  head  of  the  expansion  wave  travels  at  a  velocity 
corresponding  to  q+A ,  and  the  tail  with  speed  q-A.  In  the 
case  of  flow  traveling  to  the  left,  this  is  reversed. 
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4.   The  "SWEEP"  Routine 

The  "SWEEP"  subroutine  solves  equation  (2.5)  and 
updates  the  values  of  variables  at  the  nodes,  including  the 
boundary  nodes.  Appendix  C,  Fig.  C.4  shows  the  "SWEEP" 
flowchart.  Only  those  nodes  which  have  been  crossed  by  a 
discontinuity  during  the  time  step  are  updated  by  the 
"CORRCT"  subroutine.  Section  II. B  describes  the  theory 
coded  into  "SWEEP".  The  routine  begins  at  the  left  boundary 
node  and  progresses  to  the  right  boundary  node,  one  node  at 
a  time.  Figure  3.1  illustrates  the  overall  algorithm 
applying  the  QAZID  method.   At  the  boundary  nodes,   the 


node 


Figure  3.1  Overall  Algorithm  for  QAZID  Method 
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"BONDRY"  subroutine  is  called  and  returns  the  updated  values 

at  those  nodes.   In  between,  the  correct  and  most  effective 

algorithm   to   update   the   node   is   determined.     These 

algorithms   are   coded   into   eight   different   condition 

subroutines.    These  routines  calculate  the  interpolated 

Riemann  variables  associated  with  the  three  characteristics 

(q+A,  q,  and  q-A  ) ,  plus  the  spatial  derivatives  at  8q/3s  and 

aV9s.    This  allows  "SWEEP"  to  calculate  Aw  and  z.    The 

integral  of  z^  is  then  determined,  and  the  update  for  the 

variables  of  that  node  in  3w  are  computed.    dM    is  stored 

until  the  entire  mesh  has  been  swept.   Then  the  variable 

arrays  (w)  are  updated  to  the  next  time  interval . 

To   choose   the   proper   condition   routine,   the 

following  information  about  conditions  in  the  interval  on 

either  side  of  the  node  are  expressed  in  two  3  digit  integer 

variables,  SHOCK  and  CNTACT.   The  value  of  these  variables 

provide  a  code  for  the  following  information: 

SHOCK — The  existence  of  a  shock  within  an  interval,  and, 
if  so,  the  direction  of  travel,  and  if  the  shock 
will  cross  the  node  in  front  of  it  within  the 
current  time  step. 

CNTACT-The  existence  of  a  contact  surface  within  an 
interval,  and,  if  so,  the  direction  of  travel,  and 
if  the  contact  surface  will  cross  the  node  in  front 
of  it  within  the  current  time  step. 

Figure  3.2  illustrates  the  regions  around  a  node.   Table  V 

lists  the  values  that  SHOCK  and  CNTACT  may  have,  and  their 

meaning.   Figures  3.3,  3.4,  and  3.5  illustrate  examples  of 

what  different  SHOCK  and  CNTACT  values  mean.   At   each   node 
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Figure  3.2   Interval  and  Node  Description  used  in  "SWESP" 
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Figure  3.3   Schematic  of  SHOCK  =  331  and  CNTACT  =  232 
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TABLE  V 
VALUES  OF  PARAMETERS  SHOCK  AND  CNTACT 


SHOCK 


Located 

Direction 

Value 

in  interval  on 

of  travel 

100 

No  Shock 

N/A 

321 

Left 

Right 

322 

Left 

Right 

331 

Left 

Left 

332 

Left 

Left 

221 

Right 

Right 

222 

Right 

Right 

231 

Right 

Left 

232 

Right 

Left 
CNTACT 

100 

No  contact  surface 

N/A 

321 

Left 

Right 

322 

Left 

Right 

331 

Left 

Left 

332 

Left 

Left 

221 

Right 

Right 

222 

Right 

Right 

231 

Right 

Left 

232 

Right 

Left 

Crosses  node  in 
path  within  time  step 

N/A 

Yes 

No 

Yes 

No 

Yes 

No 

Yes 

No 


N/A 

Yes 

No 

Yes 

No 

Yes 

No 

Yes 

No 
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Figure  3.4   Schematic  of  SHOCK  =  100  and  CONTACT  =  321 
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Figure  3.5   Schematic  of  SHOCK  =  221  and  CNTACT  =  222 
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the  code  examines  the  shock  and  contact  surface  condition, 
along  with  relative  location  of  the  shock  to  a  contact 
surface  if  both  exist  near  the  node,  if  the  flow  is  super- 
sonic or  subsonic  at  the  node,  and  the  direction  the  flow  is 
traveling.  The  appropriate  algorithm  is  determined  and 
called  in  the  form  of  a  condition  subroutine. 

The  "SWEEP"  routine  is  designed  to  handle  all 
possible  shock  and  contact  surface  combinations.  Because 
the  code  does  not  solve  the  situation  where  the  shock  and 
contact  surface  intersect,  as  illustrated  in  Fig.  3.6,  then 
any  combinations  after  the  shock  and  contact  surface  have 
crossed  call  condition  routines  that  currently  contain  only 
messages.  The  code  was  intentionally  prepared  to  be  easily 
extended  to  treat  the  intersection  of  the  shock  and  the 
contact  surface,  and  beyond. 
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Figure  3.6   Schematic  of  SHOCK  =231  and  CNTACT  =  3  22 
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5.   The  "Condition"  Subroutines 

The  ten  subroutines  that  are  called  by  "SWEEP"  to 
calculate  the  interpolated  values  of  the  extended  Riemann 
variables,  R  and  Q,  plus  S,  8q/8s,  and  3A/8  s  are  CONDI, 
C0ND2,  C0ND3,  C0ND4 ,  C0ND5 ,  C0ND6 ,  C0ND7 ,  C0ND7S,  C0ND7N, 
and  C0ND8.  The  procedure  used  in  CONDI,  C0ND2 ,  C0ND3 ,  and 
C0ND5  is  that  of  Salacka  [Ref.  2:pp.  36-37]  modified  to 
account  for  contact  surfaces.  Appendix  C,  Fig.  C.5  is  a 
general  flowchart  for  these  four  routines.  Essentially,  an 
initial  estimate  is  made  of  the  characteristic  slopes,  X,  by 
enforcing  the  principle  of  domain  of  dependence.  The 
assumption  is  made  that  the  slopes  are  linear,  and  that  the 
characteristics  pass  through  point  B,  as  defined  in  Fig. 
3.7.  Then  q  and  A  are  computed  at  point  A,  which  in  turn 
yields  a  second  estimate  of  the  characteristic  slope,  X. 

The  two  slopes  for  each  characteristic  are  compared. 
If  they  are  not  equal  to  within  an  acceptable  error,  the  new 
estimate  of  X  is  used  to  repeat  the  process  until 
convergence  is  achieved.  All  three  characteristics  are 
handled  simultaneously.   The  value  of 

As   =   ^-at  (3.2) 

is  then  determined  for  each  characteristic  q+A,  q,  and  q-A. 
This  allows  linear  interpolation  of  Q,  R,  and  S  at  point  A. 
The  spatial  derivatives,  9Q/3s  and  9  A/  dS  are   computed   from 
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Figure  3.7   Computational  Method  for  CONDI  Routine 

the  values  of  q  and  A  used  in  the  estimate  of  the  initial 
characteristic  slopes. 

The  "CONDI"  subroutine  is  used  when  there  are  no 
contact  surfaces  or  shocks  within  the  interval  on  either 
side  of  the  node,  and  flow  is  subsonic.  The  q+A  character- 
istic uses  forward  differencing,  while  the  q-A  characteristic 
uses  a  backward  differencing  scheme  to  keep  the  initial 
domain  of  dependence  of  the  numerical  scheme  outside  the 
physical  domain  of  dependence. 

The  "C0ND2"  subroutine  is  a  backward  differencing 
algorithm  used  in  situations  when  one  or  more  discontinui- 
ties are  in  the  right  interval,  or  if  flow  is  supersonic  to 
the  right.   Fig.  3.8  illustrates  the  computational  method 
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Figure  3.3   Computational  Method  for  C0ND2  Routine 

for  "C0ND2".  The  characteristic  slopes  of  q+A  and  q  are 
handled  as  in  "CONDI",  but  the  q- A  characteristic  slope  is 
determined  by  a  backward  rather  than  a  forward  scheme.  To 
interpolate  between  node  i  and  i+i  would  be  incorrect 
because  of  the  discontinuity  in  the  values  between  them. 
The  value  of  parameters  in  the  right  inter^/al  are  interpo- 
lated from  values  in  the  left  interval  by  assuming  the 
derivatives  do  not  change  between  the  intervals  up  to  the 
discontinuities  (i.e.,  a  shock  and/or  a  contact  surface). 

The  "C0ND3"  -subroutine  is  a  forward  differencing 
algorithm  used  in  situations  when  one  or  more  discontinui- 
ties are  in  the  left  inter'/al,  or  if  flow  is  supersonic 
traveling  to  the  left.   Figure  3.9  shows  the  copiputational 
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Figure  3.9   Computational  Method  for  C0ND3  Routine 

method  for  "CONDS".  The  method  is  similar  to  that  in  C0ND2 
but  the  q-tA  characteristic  slope  has  to  be  interpolated  from 
values  of  node  i  instead  of  node  i-1  using  a  forward 
difference  scheme.  The  characteristic  slope  for  q- A  and  q 
are  estimated  by  forward  difference  schemes  using  values  of 
node  i+1  and  i  respectively. 

For  conditions,  such  as  that  illustrated  in  Fig. 
3.10,  where  a  discontinuity  is  in  the  interval  opposite  the 
direction  of  supersonic  flow  then  C0ND5  subroutine  is 
called.  A  mix  of  C0ND2  and  C0ND3  is  used.  For  flow  to  the 
right  the  method  of  C0ND2  is  implemented,  while  flow  to  the 
left  is  the  same  as  for  C0ND3 . 
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Figure  3,10   Example  Condition  for  "C0ND5"  Routine 

Subroutine  "C0ND4"  is  called  whenever  a  node  is  to 
be  crossed  by  a  discontinuity  from  either  direction.  The 
flowchart  for  "C0ND4" is  shown  in  Appendix  C,  Fig.  C.6.  Two 
integer  vector  arrays,  LNODE  and  RNODE ,  are  used  to  store 
the  following  information  on  the  node  being  crossed. 

A)  the  node  number,  I 

B)  the  value  of  SHOCK 

C)  the  value  of  CNTACT 

D)  the  current  value  of  the  integer  time  step,  J 

The  information  is  used  in  "CORRCT"  to  update  the  node  to 
the  next  time  level.  In  the  current  code  the  maximum  number 
of  nodes  that  can  be  crossed  during  any  time  step  is  two. 
Figure  3.11  shows  an  example  of  this  situation,  and  defines 
the  assignment  of  values.  Because  the  nodes  are  swept  from 
left  to  right,  the  left-most  node  is  assigned  to  LNODE, 
while  RNODE  applies  to  any  node  crossed  to  the  right  of  the 
LNODE  node.   The  values  of  a'w"  are   set   to   zero,  so 
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Figure  3.11   Example  of  "C0ND4"  Routine  Situation 

that  these  nodes  are  skipped  when  updating  occurs  in 
"SWEEP".  The  main  program  interprets  the  value  of  J  in 
LNODE  and  RNODE  to  determine  if  zero,  one,  or  two  nodes  need 
to  be  corrected  in  "CORRCT".  If  zero  nodes  are  crossed 
during  a  time  step  then  "CORRCT"  is  not  called. 

The  "C0ND6"  and  "C0ND8"  subroutines  are  designed  for 
future  extensions  of  the  entire  code.  Until  the  Riemann 
problem  illustrated  in  Fig.  3.6  is  coded,  then  any  situation 
after  the  shock  and  contact  surface  intersect  cannot  be 
computed.  However,  "SWEEP"  is  already  coded  to  call  "C0ND6" 
for  the  situation  illustrated  in  Fig.  3.12,  or  its  mirror 
image.  "C0ND8"  would  be  called  for  all  the  other  situations 
after  the  shock  and  contact  surface  interaction  has  taken 
place.  Currently,  both  subroutines  output  messages  on  the 
screen  describing  the  situation,  and  set  HALT  equal  to  1  to 
terminate  the  program. 
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Figure  3.12   Example  of  "C0ND6"  Situation 

The  "C0ND7",  "C0ND7N",  and  "C0ND7S"  subroutines  are 
all  related  to  each  other.  They  are  intended  to  contain 
code  that  would  facilitate  the  shock  and  contact  surface 
intersection  and  solve  the  resulting  Rieinann  problem.  The 
"C0ND7"  routine  is  called  when  the  contact  surface  and  shock 
moving  in  opposite  directions  would  cross  in  a  time  step 
within  an  interval.  The  routine  would  calculate  when  and 
where  within  the  time  and  space  domain  the  intersection 
would  occur  based  on  the  known  velocity  of  each  discontinu- 
ity and  their  current  locations.  This  new  time  could  then 
be  used  to  rerun  "SWEEP"  with  the  shock  and  contact  surface 
exactly  on  top  of  each  other  at  the  end  of  the  new  time 
step.  The  "C0ND7N"  routine  is  for  the  same  situation,  but 
when  a  node  is  crossed  by  either  discontinuity  during  the 
same  time  step.  The  same  procedure  is  done,  with  the 
requirement  to  ensure  the  node  crossed  is  properly  updated 
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by  "CORRCT"  during  the  new  time  step.  The  "C0ND7S"  routine 
is  called  when  a  shock  and  contact  surface  are  located  at 
the  same  point  at  a  time  other  than  zero.  The  subroutine 
would  contain  the  code  to  solve  the  Riemann  problem  set  up 
by  "C0ND7N"  or  "CONDT"  routines. 

6.  The  "CORRCT"  Routine 

Appendix  C,  Fig.  C.7  shows  the  flowchart  for 
"CORRCT".  The  "CORRCT"  routine  corrects  nodes  that  have 
been  crossed  by  a  discontinuity  (i.e.,  a  shock  or  a  contact 
surface)  or  are  straddled  by  both.  The  routine  takes  the 
information  from  LNODE  and  RNODE  arrays  to  determine  which 
node  or  nodes  are  to  be  updated,  and  if  there  is  any  shock 
and  contact  surface  interaction  at  the  nodes.  Then,  using 
subroutines  "DELTAX",  "SKJUMP",  "CSJUMP",  "EXTRAP", 
"INTERP",  and  "BBDRY"  the  concepts  from  Section  II  are 
imposed  to  calculate  the  jump  in  the  parameters  R,  Q,  S,  A 
and  q  at  the  node  in  question  to  the  new  time  level. 

7.  The  "BONDRY"  Routine 

The  "BONDRY"  routine  computes  the  new  values  of  the 
parameters  Q,  R,  and  S  at  the  boundary  nodes  for  time  step 

t.  The  concepts  of  Section  II  for  an  open  or  closed 
boundary  are  coded  as  shown  in  the  flowchart  of  "BONDRY" 
given  in  Appendix  C,  Fig.  C.8.  The  routine  uses  the 
"CONDI",  "C0ND2",  or  "C0ND3"  routines  to  calculate  the 
correct  w,  and  then  solves  for  w  the  same  as  in  "SWEEP". 
If  a  shock  crosses  an  open  boundary  node  during  a  time  step. 
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then  "SKJUM?"  routine  is  used  to  calculate  the  values  behind 
the  shock  at  the  node. 

8.  The  "SRFLCT"  Routine 

The  "SRFLCT"  subroutine  is  called  to  calculate  the 
values  of  Q,  R,  S,  q  and  A  at  the  boundary  node  when  a  shock 
reflects  from  a  solid  boundary.  Appendix  C,  Fig.  C.9  shows 
the  flowchart  of  "SRFLCT"  which  codes  the  analysis  in 
Section  II. D. 2  for  closed  boundary  shock  reflection.  The 
time  for  the  shock  to  reach  the  solid  boundary,  9t^,  is 
computed.  Then  the  excess  time  in  the  time  step,  3t,  is 
given  by 

3tex   =   9t  -  at^  (3.3) 

After  the  new  shock  velocity,  Vg, is  calculated,  then  the  new 
location  of  the  reflected  shock  is  known  from  multiplying  V^ 
by  3  tgj^  and  adding  or  subtracting  from  the  boundary 
location. 

9.  The  "DELTAX"  Routine 

The  "DELTAX"   subroutine  is  used  in  "CORRCT"  and 
"BONDRY"  to  calculate  the  location  within  an  interval  of  a 
discontinuity  in  terms  of  x.    Figure  3.13  defines  the 
various  displacements  which  are  calculated. 
10.   The  "SKJUMP"  Routine 

The  "SKJUMP"  subroutine  computes  the  conditions 
downstream  of  a  stationary   normal   shock   as   described   in 
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Figure  3.13   Discontinuity  Location  within  an  Interval 

Section  II. D. 2.  The  "CORRCT",  "TRAK" ,  and  "BONDRY" 
subroutines  call  "SKJUMP"  when  required,  to  obtain  the  speed 
of  sound  (A)  ,  entropy  (S)  ,  and  velocity  (q)  behind  the 
shock. 

11.  The  "CSJUMP"  Routine 

The  "CSJUMP"  subroutine  computes  the  velocity  and 
speed  of  sound  change  across  a  contract  surface  as  described 
in  Section  II. D. 3.  The  "CORRCT"  and  "TRAK"  routines  call 
"CSJUMP". 

12 .  Numerical  Support  Routines 

The  "EXTRAP",  "INTERP",  and  "BBDRY"  routines  are 
used  by  "CORRCT",  "BONDRY",  "TRAK",  and  "DBURST"  to  extrapo- 
late or  interpolate  data  to  the  face  of  a  discontinuity  or 
point.  In  particular,  "BBDRY"  is  an  interpolation  routine 
used  within  an  interval  near  a  boundary. 
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13.   The  Output  Routines 

The  four  output  subroutines  used  are  those  developed 
by  Salacka  [Ref.  2:pp.  39-40].  The  "BORDER"  and  "PLOT" 
routines  output  plots  of  pressure,  velocity,  density,  and 
modified  entropy  distributions  versus  a  non-dimension- 
alized  tube  length  at  preset  time  intervals.  "EXACT" 
creates  a  plot  of  the  exact  density  distribution  at  selected 
points  and  compares  it  with  the  computed  density 
distribution  for  a  selected  time  step.  The  "LIST"  routine 
outputs  to  files  8,  9,  and  10  tabular  listing  of  computed 
data.  The  files  are  sent  to  the  user's  permanent  storage 
disk. 

A  value  of  GRAPHS  equal  to  one  causes  "BORDER"  to 
be  called  in  the  main  program.  This  defines  plot  axis, 
labels,  and  headings.  "PLOT"  is  then  called  once  at  time 
zero,  and  at  every  time  step  set  by  SKIP. 

If  GRAPHS  is  set  equal  to  two,  then  "EXACT"  is 
called  every  SKIP  time  steps  to  plot  six  exact  density 
values  and  the  computed  density  distribution.  The  six  exact 
points  are: 

A)  The  two  boundary  points 

B)  The  head  and  tail  of  the  rarefaction  wave 

C)  A  point  just  behind  the  contact  surface 

D)  A  point  just  behind  the  shock. 
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The  location  of  the  exact  values  is  based  on  elapsed  time 
and  known  exact  values  for  wave  velocities  entered  with  the 
initial  conditions  for  the  problem. 

"LIST"  routine  is  called  every  SKIP  time  steps  when 
GRAPHS  is  equal  to  zero.  File  9  contains  a  tabular  listing 
of  the  Riemann  variables,  modified  entropy,  pressure, 
density  and  velocity  distributions,  elapsed  time,  discon- 
tinuity velocity  and  location.  File  10  is  a  tabular  listing 
of  the  location  of  the  shock,  contact  surface,  and  the  head 
and  tail  of  the  expansion  wave  computed  at  every  SKIP  time 
steps.  File  8  contains  the  exact  values  of  the  location  of 
the  shock,  contact  surface,  and  the  head  and  tail  of  the 
expansion  wave. 


75 


IV.   RESULTS 

Four  test  cases  were  run  using  the  E1DV2  code.  The 
purpose  was  to  verify  the  ability  of  the  code  to  determine 
the  unsteady  flow  process  and  correctly  simulate  varying 
boundary  conditions  and  flow  directions  in  the  Riemann  shock 
tube  problem.  The  shock  tube  is  illustrated  in  Fig.  4.1 
with  the  high  pressure  on  the  left.  The  tube  is  divided 
into  two  sections  by  a  diaphragm.  When  the  diaphragm  is 
burst,  the  pressure  equalizes  through  a  shock  wave  traveling 
into  the  expansion  chamber,  and  an  expansion  or  rarefaction 
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Figure  4 . 1   Shock  Tube  at  t  =  0.  and  t  =  t 
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wave  traveling  into  the  compression  chamber.  A  contact 
discontinuity  is  behind  the  shock  wave,  traveling  at  the 
particle  velocity  [Ref.  6:p.  30]. 

A.   TEST  CASE  1 

Test  Case  1  was  designed  to  demonstrate  shock  reflection 
and  expansion  wave  reflection  at  solid  boundaries.  Test 
Case  1  had  the  following  initial  and  boundary  conditions: 

1)  Pressure  and  density  ratios  equal  to  five,  with  high 
pressure  on  the  left 

2)  Temperature  ratio  equal  to  unity 

3)  Both  boundaries  were  closed 

4)  Diaphragm  was  located  at  x  =  0.5 

5)  Computational  mesh  had  101  nodes 

6)  Maximum  time  step,  JSTOP,  =  109,  with  SKIP  =  13. 
Plots  of  the  results  obtained  for  the  pressure,  density, 
velocity,  and  modified  entropy  distributions  are  shown  in 
Fig.  4.2  and  Fig.  4.3.  Fig.  4.2  shows  the  computation  up  to 
time  step  55,  while  Fig.  4.3  takes  the  computation  from  time 
step  56  to  termination.  The  output  of  "EXACT",  a  plot  of 
the  exact  density  compared  with  the  computed  density 
distribution  is  shown  in  Fig.  4.4.  Fig.  4.5  illustrates  the 
spatial  location  versus  time  for  exact  and  computed  shock, 
contact  surface,  and  head  and  tail  of  the  expansion  wave. 
Data  for  Fig.  4.5  were  taken  from  file  10  and  file  3.  Fig. 
4.6  shows  plots  of  pressure,  density,  modified  entropy,  and 
velocity  distributions  for  the  same   initial   and  boundary 
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Figure   4.2      Test  Case   1    (J  =    1   to  J  =   55) 
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Figure  4.3  Test  Case  1  (J  «  56  to  J  =  109) 
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Figure  4.6   Test  Case  1,  High  Pressure  on  Right 
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conditions  but  with  high  pressure  on  the  right.  Figure  4.6 
includes  data  corresponding  to  those  in  both  Fig.  4.2  and 
Fig.  4.3  for  the  high  pressure  initially  on  the  left. 

B.   TEST  CASE  2 

Test  Case  2  was  to  demonstrate  an  open  boundary, 
constant  pressure,  expansion  wave  interaction.  The  test 
case  was  run  with  the  following  initial  and  boundary 
conditions: 

1)  Pressure  and  density  ratios  equal  to  5.0,  with  high 
pressure  on  the  left 

2)  Temperature  ratio  equal  to  unity 

3)  The  left  boundary  was  open,  with  a  constant  pressure 
ratio  across  the  boundary  of  4/5 

4)  The  right  boundary  was  open,  with  an  adjustable  pres- 
sure ratio  that  in  effeci:  extended  the  length  of  the 
tube 

5)  The  diaphragm  was  located  at  x  =  0.74 

6)  Computational  mesh  had  51  nodes 

7)  Maximum  time  step,  JSTOP,  =  37,  SKIP  =  9. 

Plots  of  the  results  for  the  pressure,  density,  velocity, 
and  modified  entropy  distributions  are  shown  in  Fig.  4.7. 
The  test  case  was  rerun  with  high  pressure  on  the  right. 
Figure  4.8  shows  the  results  for  pressure,  density,  and 
temperature  ratios  the  same.  The  diaphragm  was  then  at  x  = 
0.26.  Boundary  conditions  were  reversed.  The  same  computa- 
tional mesh,  and  output  control  were  used. 
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Figure  4.7   Test  Case  2,    High  Pressure  on  Left 
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Figure  4.8   Test  Case  2,    High  Pressure  on  Right 
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C.  TEST  CASE  3 

Test  Case  3  was  designed  to  demonstrate  a  shock  exiting 
an  open  boundary  with  constant  pressure  maintained  at  the 
boundary  itself.  The  following  initial  and  boundary 
conditions  were  set: 

1)  Pressure  and  density  ratios  equal  to  5.5,  with  high 
pressure  on  the  left 

2)  Temperature  ratio  equal  to  unity 

3)  Left  boundary  was  closed 

4)  Right  boundary  was  open  with  a  constant  pressure  ratio 
across  the  boundary  of  unity 

5)  Diaphragm  was  located  at  x  =  0.5 

6)  Computational  mesh  had  101  nodes 

7)  Maximum  time  step,  JSTOP,  =  73,  with  SKIP  =  18. 
Figure  4.9  shows  plots  of  the  results  obtained  for  pressure, 
density,  modified  entropy,  and  velocity  distributions. 
Similarly,  Fig.  4.10  shows  results  obtained  by  putting  the 
high  pressure  on  the  right,  reversing  the  boundary  condi- 
tions, and  holding  everything  else  the  same. 

D.  TEST  CASE  4 

Test  Case  4  was  designed  to  demonstrate  a  lower  pressure 
ratio,  with  shock  wave  reflection.  The  initial  and  boundary 
conditions  were  set  as  follows: 

1)  Pressure  and  density  ratios  equal  to  3.2,  with  high 
pressure  on  the  left 

2)  Temperature  ratio  equal  to  unity 

3)  Both  boundaries  were  closed 
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Figure  4.9   Test  Case  3,  High  Pressure  on  Left 
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Figure  4.10   Test  Case  3,  High  Pressure  on  Right 
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4)  Diaphragm  was  located  at  x  =  0.5 

5)  Computational  mesh  had  901  nodes 

6)  Maximum  time  step,  JSTOP,  =  601,  with  SKIP  =  150. 
Plots  of  the  results  obtained  for  the  pressure,  density, 
modified  entropy,  and  velocity  distributions  are  given  in 
Fig.  4.11.  Figure  4.12  shows  the  results  obtained  with  the 
high  pressure  to  the  right,  SKIP  =  200,  and  holding  all 
other  parameters  constant. 
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Figure  4.11   Test  Case  4,  High  Pressure  on  Left 
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Figure    4.12      Test   Case    4,    High   Pressure   on   Right 
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V.   DISCUSSION 

A.   RESULTS  OF  TEST  CASES 

Overall,  in  the  four  specific  test  cases  which  were  run, 
the  expected  qualitative  flow  behavior  was  produced  by  the 
code.  Quantitatively,  either  experimental  data  or  further 
exact  solutions  are  needed  to  fully  validate  the  computa- 
tions. The  results  of  each  test  case  will  be  discussed 
separately. 

Test  Case  1  results  in  Fig.  4.2  show  the  formation  of  a 
well-defined  shock  wave  traveling  to  the  right,  with  the 
contact  surface  crisply  defined  following  along  behind.  The 
entropy  drops  sharply  across  the  shock  and  remains  constant 
to  the  contact  surface  and  then  jumps  to  a  steady,  constant 
value  to  the  left  boundary  as  expected.  Pressure  and 
velocity  remain  constant  through  the  contact  surface. 
Velocity  is  positive  since  flow  is  to  the  right.  The 
expansion  wave  is  smeared  from  head  to  tail  over  the  correct 
range.  Figure  4.3  is  a  continuation  of  the  flow  problem 
with  a  sequential  display  of  the  results.  The  entropy 
continues  to  drop  as  the  reflected  shock  travels  back  toward 
the  contact  surface.  Notice  that  the  velocity  behind  the 
shock  is  zero.  At  the  left  boundary  as  the  head  of  the 
expansion  wave  reflects,  pressure  and  density  continues  to 
drop  while  velocity  is  zero  at  the  boundary.   The  density 
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distribution  shows  that  the  contact  surface  and  shock  are 
about  to  cross.  The  program  terminated  and  issued  a  message 
before  the  next  output  call  was  made,  when  the  code 
determined  that  the  contact  surface  and  shock  would  cross. 
The  exact  density  distribution  compared  with  the  computed 
density  distribution  in  Fig.  4.4  clearly  shows  the  shock  and 
contact  surface  are  modeled  very  accurately  with  a  medium 
mesh.  The  expansion  process,  consisting  of  infinitesimal 
changes  propagating  along  the  characteristics  is  fairly  well 
modeled.  Figure  4.5  shows  that  tracking  of  the  contact 
surface  and  shock  wave,  in  comparison  with  exact  locations  at 
set  times,  is  excellent.  Using  q+A  and  q-A  based  on  condi- 
tions behind  the  burst  diaphragm  as  estimates  of  the 
velocities  of  the  head  and  tail  of  the  expansion  wave 
respectively  results  in  positions  of  the  head  and  tail 
slightly  different  from  those  of  an  exact  Riemann  solver 
code  [Ref.  3].  The  exact  code  is  based  on  a  method  given  in 
[Ref.  9:pp-  181-191].  However,  an  examination  of  the 
tabulated  output  showed  that  the  solution  method  predicted 
changes  in  the  gradients  to  occur  at  similar  locations  to 
those  computed  using  the  q+A  and  q-A  estimates.  Consequent- 
ly, while  there  may  be  some  inaccuracy  in  the  numerical 
solution,  the  method  of  tracking  the  head  and  tail  of  the 
expansion  wave  is  acceptable. 

The  ability  to  reproduce  the  same  conditions  but  with 
flow  to  the  left  is  demonstrated  clearly  in  Fig.  4.6.   The 
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entropy,  density,  velocity,  and  pressure  distributions  are 
mirror-images  of  those  for  the  case  of  high  pressure  on  the 
left. 

Test  Case  2  results  in  Fig.  4.7  show  that  at  time  zero 
with  a  pressure  ratio  at  the  boundary  of  4,  which  is  lower 
than  the  preset  value  inside  the  tube  of  5,  an  expansion 
wave  traveling  inwards  is  generated.  Outflow  is  seen  in  the 
negative  velocity  distribution  developing  near  the  left 
boundary,  where  negative  velocity  implies  flow  traveling  to 
the  left.  The  contact  surface  and  shock  are  clearly  formed 
to  the  right  of  the  off-center  diaphragm,  and  travel  to  the 
right.  The  expansion  wave  generated  at  the  diaphragm 
travels  to  the  left  and  intersects  with  the  expansion  wave 
generated  at  the  left  boundary.  The  pressure  distribution 
shows  the  propagation  of  these  waves  as  the  pressure  drops 
behind  the  head  of  each  wave.  With  conditions  reversed,  so 
that  the  high  pressure  is  to  the  right  of  the  diaphragm,  the 
results  in  Fig.  4.8  are  a  mirror-image  with  velocity 
negative  for  flow  to  the  left,  and  positive  for  the  outflow 
to  the  right. 

Test  Case  3  results  in  Fig.  4.9  demonstrate  that  the 
shock  wave  meeting  an  open  boundary  where  the  pressure  is 
held  constant,  is  correctly  computed  to  exit  the  tube.  The 
density  distribution  shows  the  jump  increase  across  the 
shock,  then  another  jump  increase  across  the  contact 
surface.    Then  density  plunges  down  as  an  expansion  wave 
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travels  back  into  the  tube  when  the  shock  exits.  The 
pressure  ratio  at  the  open  right  boundary  was  held  at  unity, 
as  seen  in  the  pressure  distribution  which,  at  the  boundary 
behaves  similarly  to  the  density  distribution.  The  pressure 
at  the  boundary  would  be  required  to  increase  as  the  shock 
passed  by,  however  the  enforcement  of  the  constant  pressure 
locally  causes  an  expansion  wave  to  form  traveling  to  the 
left.  The  entropy  remains  constant,  at  the  value  behind  the 
shock,  from  the  boundary  back  to  the  contact  surface.  There 
is  a  jump  in  entropy  across  the  contact  surface.  The 
velocity  distribution  shows  that  as  the  shock  travels  to  the 
right,  the  velocity  jumps  up.  When  the  expansion  wave 
generated  at  the  right  boundary  travels  inward  the  velocity 
continues  to  increase  in  magnitude  while  flowing  to  the 
right.  The  expansion  wave  generated  at  the  diaphragm  can  be 
seen  traveling  to  the  left  in  the  plots  of  pressure, 
density,  and  velocity.  Reversing  the  situation  and 
computing  conditions  for  flow  to  the  left,  in  Fig.  4.10, 
results  in  a  mirror- image  in  the  pressure,  density,  and 
entropy  distributions.  The  velocity  becomes  negative  since 
flow  is  to  the  left. 

Test  Case  4  is  a  repeat  of  the  first  test  case  but  with 
a  pressure  ratio  of  3.2  and  a  fine  computational  mesh.  In 
Fig.  4.11  the  density  steps  up  across  the  shock  and  contact 
surface  as  they  travel  to  the  right.  When  the  shock 
reflects  the  density  jumps  again.   The  velocity  distribution 
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shews  that  the  velocity  drops  to  zero  behind  the  reflected 
shock,  after  it  had  jumped  up  across  the  shock  when  it  was 
traveling  to  the  right.  The  instability  seen  in  the 
velocity  and  pressure  distributions  near  the  midpoint 
occurred  during  the  first  100  time  steps.  A  numerical 
instability  appears  to  generate  at  the  diaphragm  at  time 
zero  for  pressure  ratios  less  than  about  3 . 0  which  can  be 
severe.  For  the  conditions  in  this  test  case  the  transient 
instability  damped  out  after  the  first  100  time  steps.  The 
shock,  contact  surface,  and  expansion  wave  are  nevertheless 
seen  to  be  accurately  modeled.  Figure  4.12  demonstrates 
that  reversed  conditions  result  in  mirror- images  of  the 
computed  conditions. 

B.   CURRENT  LIMITATIONS  OF  THE  CODE  E1DV2 

The  current  limitations  of  the  E1DV2  code  for  modeling 
quasi-one-dimensional  inviscid  flow  are  in  two  categories. 
First,  there  are  numerical  limitations  in  obtaining 
solutions  with  the  present  code  for  different  initial  and 
boundary  conditions.  Second,  the  present  coding  limits  what 
flow  situations  can  be  treated. 

The  numerical  instability  which  occurs  at  low  pressure 
ratios  during  the  first  few  time  steps  can  be  severe.  The 
assumption  in  the  current  code  is  that  the  shock  forms 
immediately,  which  at  high  pressure  ratios  does  not  pose  any 
problems.  The  mathematical  modeling  of  the  bursting 
diaphragm  in  subroutine  "DBURST"  adequately  reduces  the 
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transient  instability  for  high  pressure  ratios,  but  not  for 
low  pressure  ratios. 

A  second  rather  different  numerical  limitation  was 
identified  in  numerically  detecting  the  location  of  the  head 
and  tail  of  the  expansion  process.  Because  the  expansion 
process  is  not  a  sharply  defined  front,  fixing  the  precise 
locations  of  the  head  and  tail  waves  numerically  at  a  given 
time  is  difficult.  However,  the  method  currently  used  does 
accurately  track  the  computed  propagation  of  the  wave  along 
the  characteristics.  The  characteristics  are  modeled 
currently  as  straight  lines.  A  higher  order  curve  would 
describe  them  more  accurately. 

The  current  code  is  limited  to  tracking  two  discontinui- 
ties and  the  expansion  wave  (i.e.,  a  shock  and  a  contact 
surface) .  Thus  any  situation  which  would  generate  another 
discontinuity  can  not  be  computed.  The  code  can  determine 
when  this  will  occur,  and  will  issue  a  message  explaining 
the  situation  before  terminating.  Thus  the  shock  colliding 
with  a  contact  surface  will  currently  terminate  the  program. 
A  boundary  pressure  that  is  higher  than  the  pressure  inside 
the  tube  would  also  create  a  compression  wave  or  possibly  a 
shock  wave.  This  condition  will  also  terminate  the  program. 
Simulation  of  the  process  of  a  shock  forming  over  an 
extended  distance  and  time  as  compression  waves  pile  on  top 
of  each  other  and-  strengthen,  would  also  require  additional 
code. 
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Finally,  the  variation  of  gamma  that  occurs  across  the 
contact  surface  in  a  wave  rotor  cannot  be  handled  currently 
since  E1DV2  assumes  a  single  constant  gamma  throughout. 
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VI.   CONCLUSIONS 

Towards  the  development  of  a  one-dimensional  code  for 
wave  rotor  applications,  methods  for  tracking  and  correcting 
conditions  across  a  contact  discontinuity,  applying  open  and 
closed-end  boundary  conditions,  accounting  for  shock  wave 
and  contact  surface  interaction  were  devised  and  were 
presented  here  in  detail.  The  EULERl  Fortran  Code  [Ref.  2] 
was  revised  to  become  the  E1DV2  code  with  the  following 
additional  capabilities: 

1)  tracking  of  the  contact  surface  and  expansion  wave 

2)  imposing  high  pressure  initially  on  the  right  side  of 
the  diaphragm 

3)  correct  jump  conditions  across  the  contact  surface 

4)  allow  open  boundary  conditions  with  constant  pressure 
specified  and  allow  exiting  of  shock  and  expansion 
waves 

5)  allow  closed  boundary  conditions  and  model  shock  and 
expansion  wave  reflections 

6)  improved  numerical  accuracy  from  time  zero  to  the 
maximum  time  step. 

The  code  was  tested  on  the  shock  tube  problem  under  four 

different  initial  and  boundary  conditions  with  excellent 

results. 

The  following  extensions  are  recommended  to  make  the 

code  suitable  for  wave  rotor  applications: 

1)  Solve  the  Riemann  problem  at  the  moment  when  the  shock 
and  contact  surface  intersect 
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2)  Add  additional  code  to  track  more  than  two  discontinu- 
ities and  one  expansion  wave 

3)  Incorporate  a  variable  value  of  gamma  into  the  code 

4)  Update  the  characteristic  curve  approximation  from 
linear  to  a  higher  order  polynomial 

5)  Add  code  necessary  to  handle  open  boundary  conditions 
with  inflow 

6)  Improve  on  the  numerical  computation  at  time  zero  for 
low  pressure  ratios  across  the  diaphragm 

7)  Enable   boundary   conditions   to   be  variable   during 
program  execution  to  allow  wave  rotor  cycle  design 

8)  Compare  computations  using  the  code  with  experimental 
data  where  available 

9)  Extend  the  code  to  two  dimensions. 

These  extensions  may  require  various  degrees  of  effort. 
However,  the  ability  of  the  QAZID  solution  method  to  be 
extended  rather  simply  to  describe  viscous  multi-dimensional 
flow  suggests  that  such  efforts  would  be  justified. 
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APPENDIX  A 
DERIVATIONS  OF  EQUATIONS 

A.  LIST  OF  VARIABLES 

A  Speed  of  sound 

Cp  Specific  heat  at  constant  pressure 

C^  Specific  heat  at  constant  volume 

e  specific  internal  energy 

h  Specific  enthalpy 

P  Static  pressure 

Q  Modified  Riemann  variable 

qj^  Reversible  heat  transferred 

q  Velocity  magnitude 

R  Modified  Riemann  variable 

Rq  Gas  constant 

S  Modified  entropy  (non-dimensional  where  S  =  S*Rq) 

T  Static  temperature 

t  Time 

u  Velocity  relative  to  a  standing  shock  wave 

v  Specific  volume 

W  Incoming  Mach  Number  relative  to  a  stationary 
shock  wave 

w  Work 

p  Density 

Y  Ratio  of  specific  heats 
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B.   DERIVATION  OF  SHOCK  JUMP  EQUATION  FOR  HIGH  PRESSURE  ON 
THE  RIGHT 

The  analytical  equation  relating  the  non-diniensionalized 
extended  Riemann  variable,  R,  change  through  a  normal  shock 
is  derived  below  similar  to  that  for  the  Q  variable  change 
when  high  pressure  is  on  the  left  [Ref.  Z  :Appendix  A]. 

Figure  A.l  shows  a  shock  moving  to  the  left  with 
velocity  Vg.  Subscript  A  is  always  associated  with 
parameters  to  the  left  of  any  discontinuity,  and  B  with 
those  on  the  right.  To  enable  normal  shock  relations  to  be 
used  the  system  requires  a  velocity  in  the  opposite  direc- 
tion but  of  equal  magnitude  be  imposed  upon  it.  The 
coordinate  system  was  defined  such  that  vectors,  such  as 
velocity,  directed  to  the  right  are  positive  while  those  to 
the  left  are  negative. 


V 


a 


I 


unsteady 


u   =q-V 
a     a   s 


1 


u   =q-  V 
b  ^b   s 

► 


steady 


Figure  A.l   Shock  Wave  with  High  Pressure  on  Right 


102 


since  relative  incoming  Mach  Number,  w,  relates  the 
velocity  downstream,  or  that  region  into  which  the  shock  is 
traveling,  to  the  speed  of  sound  in  that  region  [Ref.  10: pp. 
114-154]  then 


q,-v     u^ 

w   =   IA_s   ^    A  (^1) 

^A       ^ 


w  is  a  positive  value  because  q^^,  though  negative,  is  small- 
er in  magnitude  than  the  equally  negative  shock  velocity, 
Vg.   The  speed  of  sound,  A,  is  positive  by  definition. 

The  appropriate  extended  Riemann  variable  in  this  case 
is  R,  defined  as 

R   =   q  -  As  (A2) 

Since  q  is  negative,  this  can  be  rewritten  as 

R   =   -(|q|  +  AS)  (A3) 

to  emphasize  that  R  is  the  Riemann  variable  associated  with 
the  lesser  change  across  the  shock  [Ref.  3:pp.  18-21].  We 
adopt  the  pattern  of  non-dimensionalizing  velocity  by  the 
speed  of  sound,  pressure  and  density  by  corresponding  values 
downstream  of  the  shock.  Using  the  entropy  S,  defined  by 
Verhoff  [Ref.  l:p.  2]  as 
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S   =  ^-7(^1^<4)  (A4) 


then 


V^    %  -  Vb  "^a  -  Vi 


^A         *A        'a 


The  ratios  of  pressure,  density,  and  sonic  velocity  across  a 
normal  shock  from  Zucker  [Ref.  7:p.  151]  and  Shapiro  [Ref. 
10 :p.  118]  in  terms  of  Mach  Number  are 


!b  ^  jY.w2  _IZ1  (A6) 

P^     Y+1      Y+1 


^B     (y+lW^ 


Pa     (y-IM^  +2 


(A7) 


A        ,  ^   _   „   ^     1/2 

IT    =  W[2(Y-I)[l.l=iw^l[^w^-Ilj  (A8) 

The  first  term  on  the  right  side  of  equation  (A5)  can  be  ex- 
pressed in  terms  of  w  by  applying  simple  continuity  in  mass, 
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P^u^Area;^  =   PBUgAreag  (A9) 


Taking  the  areas  as  equa],  this  becomes 


^B     ^A     (y+1)w 


By  subtracting  one  from  each  side 


!^  _  1  =  y-i  w^+  2  _  ^ 

^        (y+l)w^ 


^  ^A  ^  (y-I)w^  +2  -  (y+l)w^ 
^A  (Y+1)w^ 

^^^I^  =  2JLz4l  (All) 

^       (Y+l)w^ 

Substitute  equation  (Al)  for  Uj^   to  get 

^-^A  _  2(1  -w^) 
^^A   "   (Y+Dw^ 

"^""^  _  2(1  -w^) 

^^  (FlW  ^^^^^ 


thus 


q.^  -V  -  (a^  -V  )     ^,,2, 
^B   s   ^A   s      2  (1  -w  ) 


^A 

%-% 

\ 

2(1  -w^) 

(Y+1)w 

(Y+l)w 


(A13) 
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Combining      equations       (A6) ,       (A7) ,       (A8) ,       and      (A13)       into 
equation  (A  5)    gives  - ■ 

^    A  2(l-w  )    ,    /2.rT     ,       1      ,^,     ,.„    ^Y-l  2,  ,  2y     2     ttvI/2.-, 


*(  (^'2  <^-l)fl-^'H^w2 -11)^/2} 


y   /       1       n^/^  2y      2     Y-1.  .(y-l)w  +2.Y.  ,. 


(A14) 


C.   DERIVATION  OF  CONTACT  SURFACE  JUMP  EQUATION 

The   analytical   expression   for   the   ratio   of   sonic 

velocity  across  a  constant  surface  is  derived  t    as  follows: 
The  first  law  of  thermodynamics  is  stated  as 


change  of 
internal  energy 


incremental 
amount  of 
heat  added 
to  system 


work  done 
on  the 
system  by 
surrounding 


or,  in  differential  form 


de   =   3qR  +  9W 


(A15) 


Internal  energy  is  defined  as 


e   =  h  -  pv 


(A16) 


then 
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de  =  dh  -  pdv  -  vdp  (A17) 

The  incremental  work  is  given  by 

8W  =   pdv  (A18) 

The  heat  addition  is  determined  from  the  definition  of  modi- 
fied entropy. 


d:.   -  -  -  ^- 


dqR   =   -  yTdS  (A19) 

Substituting  equations  (A17) ,  (A18) ,  and  (A19)  into  equation 
(A15)  yields 

dh  -  pdv  -  vdp   =   - yTdS  -  pdv 

Canceling  like  terms,  and  rearranging  gives 

dp   =   1  Tds"  +  (-)dh  (A20) 

V  V 

Enthalpy,  h,  is  defined  as 

h   =   CpT  (A21) 
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For  a  perfect  gas  the  sonic  velocity  is  given  by 


A  =   (yRgT)V2 


thus 


dA   =   2-CYRGT)-'-/^(dT/T)  (A22) 

Substituting  equation  (A21)  and  then  (A22)   into  equation 
(A20) ,  equation  (A20)  becomes 


dp   =  ^TdS  +  (i)d(CpT) 


=  ^TdS  +  (-)CndT 
V       W''  P 


=  ^TdS  +  (i)CpT(-^)  (A23) 


For  an  ideal  gas, 


Y  =   Cp/Cv 


and 


Cp   =   Cv  +  Rg 


Combining  these  two  equations,  and  rearranging 
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Cp   =   Rg  ^^^  (A24) 


Substituting  equation  (A24)  into  equation  (A23) ,  and 
observing  that  pressure  remains  constant  through  the  contact 
surface 

lYdSH-±(R^(^))^  =  0  (A25) 

Eliminating  T/v ,    equation  (A25)  becomes 


(^,a,S/H,,  =  -^  <--) 


Then  S/Rq  becomes  a  non-dimensionalized  entropy.  Using  the 
notation  of  S  =  S/Rq  now  for  the  non-dimensionalized  form, 
so  that  by  integrating  both  sides 


^   A  A 


^[Sg-S^l  =  InA^/Ag 


which  can  be  written  as 


/A3  =  exp 


^   2   ^^B  ^A^^  (A27) 


Definitions  used  in  this  development,  excluding  modified 
entropy  were  from  [Ref.  ll:pp.  87-125]. 
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D.   DERIVATION  OF  EXTENDED  RIEMANN  VARIABLE  CHANGE  ACROSS  A 
CONTACT  SURFACE 

An  analytical  expression  for  the  change  in  the  non- 

dimensionalized  extended  Riemann  variable,   Q,   across  a 

contact  surface  traveling  right  is  derived  here.   Figure  A. 2 

depicts  a  contact  surface  moving  right  with  velocity  q. 


contact  surface      shock 


Entropy 


B* 


A 
S 


i 


B 


i+l 


Figure  A. 2   Contact  Surface  Traveling  Right 
Subscript  Notation 


Values  of  parameters  to  the  left  of  the  interface  are 
denoted  by  subscript  A',  and  those  to  the  right  with  sub- 
script B'.  As  illustrated,  parameters  to  the  left  of  the 
shock  have  subscript  A,  and  to  the  right  subscript  B.  All 
velocities  are  non-dimensionalized  by  sonic  velocity 
immediately  downstream  of  the  discontinuity.  Thus  using  the 
definition  of  the  extended  Riemann  variable, 
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Q   =   q  +  AS  (A28) 


then 


Qa'  -Qb-    ^a-  ■'^a'^a'   ^b'  -^^b'^b- 


"^^B^  ^'  ^' 


^A'  ""^B'    '^A' 


Since  velocity  is  constant  through  a  contact  surface,   so 
that 

^A '   =   ^B ' 
then  equation  (A29)  becomes 

°A-  -Qb'      ^'  ,     , 

Using  equation  (A27) ,  this  can  be  written 
Qa'  -Qb'      (^(^b'-^a-^^   , 


Multiply  each  side  by  A  ,/A_.,  and  since  A  ,  =  A   then 

B    B  B       A 


Qa'"^b'        ^■^^^^b'"^a'^ 
^   ^   =   [(exp   ^    ^   ^  )(S^,)-S^,](A  /A^)  (A31) 


^ 


A'    B''  '  A'  B' 
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For   a   contact   surface   traveling   to   the   left,   as 
illustrated  in  Fig.  A. 3,  the  derivation  is  entirely  similar  but 


Shock 


contact  surface 


Entropy 


Figure  A. 3   Contact  Surface  Traveling  Left 
Subscript  Notation 


using  the  R,  extended  Riemann  variable  with  the  result 


RqI-^I  ^      ( 2 '^^^Al'So, 


=   [exp 


A 


(A32) 


E.   DERIVATION  OF  OPEN  BOUNDARY  CONDITIONS   WITH  CONSTANT 
PRESSURE 

The  equation  for  density  and  temperature  ratios  in  terms 

of  pressure  and  entropy  are  derived  below.   The  definition 

of  modified  entropy  in  non-dimensional  form  is 


S   = 


2      1   ,  ,  P, 


(A33) 
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where  P  and  p  are  non-dimensional ized  ratios.   Then 


(s  -  ~i)(-y(y-i))  =  lJ^(P/P^) 


or 


r(s--5r)(-Y(Y-i))J  Y 

exp    ^  =  P/P^ 


Rearranging 


ns-~^)(-Y(Y-l))3 
p'     =     [P[exp  ''  ]] 


thus 


1/Y  (S-n£r)(-Y(Y-l))   -1/Y 


1        (s--£^)(-y(y-1))    -1/y 

=     dCexp        ^  ^  )} 


P     =     ip(exp 


(A34) 


using  the  perfect  gas   lawr • 


P    =     ^^^®^ 


.  (S--^)(-Y(Y-l))      -Vy 

ir(exp         ^'^  ) ) 


.  (S--^)(-Y(Y-l)) 

pT 


rY     ^    _£.(exp         '-"  ) 


multiply  each  side  by  T  and  divide  by  p"~*^  then 
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.,  (S  --^)  (-Y  (Y-1) ) 

T     =     p'/p(exp         ^  ) 


thus 


Y-1  (S--^)(Y(1-Y)) 

T     =     p        [exp  ' 


(A35) 
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APPENDIX  B 
OPERATION  OF  E1DV2  ON  THE  NPS  VM/CMS  SYSTEM 

A.  TERMINAL  REQUIREMENTS 

Terminal  requirements  depend  on  the  desired  output.  Any 
terminal,  such  as  the  IBM  3  278,  connected  into  the  VM/CMS 
system  is  adequate  for  a  tabular  listing  or  Disspla  Metafile 
of  data.  The  Disspla  Metafile  stores  graphical  data  for 
display  using  DISSPOP  commands.  If  output  of  the  plots  on  a 
monitor  screen  is  desired,  an  IBM  3277-TEK618  dual  screen 
terminal  must  be  used.  Table  B.I  lists  terminal  require- 
ments for  different  outputs. 

TABLE  B.I 
TERMINAL  AND  OUTPUT 
OUTPUT  TERMINAL 

Tabular  listing  of  data  Any  terminal 

Graphical  data  in  format 

for  VERSATEC  printing  Any  terminal 

Graphical  data  plotted 

on  screen  IBM  3277-TEK618 

B.  PROCEDURE 

1.   Editing  Variables  and  Program  Setup 

To   change   the   initial   and   boundary   conditions, 
graphical  output,  and  grid  size  to  run  the  program  under 
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different  conditions^  the  following  must  be  done.  First, 
pick  the  appropriate  terminal  from  Table  B.I  and  log  on. 
Enter  the  editor  by  issuing  the  command 

X  E1DV2  FORTRAN  A 

Table  B.II   lists  the  code  variables  that  will  require 

editing  and  their  meaning.   In  addition,  to  these  variables 

if  graphical   plots   are  to  be  outputed  then  enter  the 

"BORDER"  and  "EXACT"  subroutines  and  edit  the  lines: 

"FIRST  ORDER    N  =  ???" 

"DENSITY  RATIO  =  ???   TEMP  RATIO  =  ???" 

"PRESSURE  RATIO  =  ???" 

To  issue  the  output  graphs  to  the  screen  comment  out  the 

lines  "COMPRS",  and  use 

CALL  TEK618 

Otherwise,  if  a  Disspla  Metafile  of  the  graphics  plot  is 

desired,  comment  out  the  "TEK618"  line,  and  use 

CALL  COMPRS 

These  lines  are  in  the  "Set  up  graphics  plot  of  variable" 

loop  in  the  main  program. 

To  store  these  changes,  hit  the  enter  key,  and  type 

"file".   Select  the  enter  key  once  more.   The  program  is  now 

ready  to  be  compiled  and  executed. 

2 .   Commands 

To  compile  and  execute  the  E1DV2  code  on  the  VM/CMS 

system  perform  the  following  commands  exactly  as  typed: 
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Variable 

DIMENSION  statement 
for  arrays  A(N) , . . . , 
XARRAY(N) 


N 


GRAPHS 


SKIP 

JSTOP 
TRI 

PRI 

DRI 

QLI 

QRI 

LBDPRI 

LBDTRI 

LBDORI 


TABLE  B.II 

EDITABLE  VARIABLES 

Edit 

set  the  dimension  of  the  arrays 
equal  to  the  number  of  nodes 
in  the  grid 

set  to  the  number  of  nodes  in  the 
grid 

set  to:   0  for  tabular  listing  of 
data 

1  for  plot  of  density, 
entropy,  pressure  and 
velocity  distributions 

2  for  plot  of  exact  density 
distribution  compared  to 
computed  density 
distribution 

set  to  number  of  time  steps  between 
calls  to  output  routines 

set  to  maximum  number  of  time  steps 

set  to  initial  temperature  ratio 
across  diaphragm 

set  to  initial  pressure  ratio  across 
diaphragm 

set  to  initial  density  ratio  across 
diaphragm 

set  to  initial  velocity  left  of 
diaphragm 

set  to  initial  velocity  right  of 
diaphragm 

set  to  initial  pressure  ratio 
across  left  boundary 

set  to  initial  temperature  ratio 
across  left  boundary 

set  to  initial  density  ratio  across 
left  boundary 


117 


TABLE  B.II  (CONTINUED) 


RBDDRI 
RBDPRI 
RBDTRI 

6 

EE 

LWPRES 


set  to  initial  density  ratio  across 
right  boundary 

set  to  initial  pressure  ratio  across 
right  boundary 

set  to  initial  temperature  ratio 
across  right  boundary 

set  to  desired  value  of  gamma 

set  to  desired  error  tolerance  for 
calculation  of  characteristic  slope 
(i.e. ,    0. lD-8) 

set  to:   2  for  low  pressure  on  right 
side  of  diaphragm 
3  for  low  pressure  on  left 
side 


LBNDRY 
RBNDRY 

LBDPRS 
RBDPRS 


XINIT 
VHEAD 

VTAIL 

VCDE 


set  to:   1  for  closed  boundary 

0  for  open  boundary 

set  to:   0  for  constant  pressure  at 
left  boundary 

1  for  pressure  that  adjusts 
at  the  left  boundary 

set  to  location  of  diaphragm 

set  to  exact  velocity  for  head  of 
expansion  wave 

set  to  exact  velocity  for  tail  of 
expansion  wave 

set  to  exact  velocity  for  contact 
surface 


VSE 


set  to  exact  velocity  for  shock 
wave 


DLCD 


set  to  exact  density  behind  contact 
surface 


DLSH 


set  to  exact  density  behind  shock 
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SIGMA (1,2) 
SIGMA(2,2) 
SIGMA (3, 2) 
SIGMA (4, 2) 


TABLE  B.II  (CONTINUED) 


set  to  diaphragm  location  (i.e., 
0.5D00) 


There  are  four  cases  where  Y 
appears  in  the  program 
edit  as  follows: 

Comment  out  Y  =  ( Integer #) ,  use: 
first,  Y  =  (N+l)/2  if  LWPRES  =  2 
second,  Y  =  (N+3)/2 
and 

third,  Y  =  (N-l)/2  if  LWPRES  =  3 
fourth,  Y  =  (N+l)/2 
for  diaphragm  at  0.5 
Comment  out  those  above,  if  dia- 
phragm at  another  node.   Set 
first,  Y  =  (Integer  #)  of  node  for 

LWPRES  =  2 
second,  Y  =  (#  +  1) 
and 
third,  Y  =  (Integer  #  -  1)  of  node 

for  LWPRES  =  3 
fourth,  Y  =  (#) 
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1)  Increase  the  virtual  memory  by  entering 

DEFINE  STORAGE  IM 

2)  To  return  to  CMS  environment  enter 

I  CMS 

3)  To  compile  the  program  enter 

FORTVS  E1DV2 

The  screen  will  display  messages  as  it  compiles  each 
routine  and  when  finished  a  ready  symbol  appears. 

4)  To  execute  the  program,  enter 

DISSPIA  E1DV2 
The  message 

...YOUR  FORTRAN  PROGRAM  IS  NOW  BEING  LOADED... 

...EXECUTION  WILL  SOON  FOLLOW... 

should  appear,  followed  by 
...EXECUTION  BEGINS... 

If  at  a  TEK618  terminal  with  GRAPHS  equal  to  1  or  2 
then  the  screen  on  the  TEK618  will  begin  plotting  the 
selected  graph.   A 

...press  ENTER  to  continue... 
message  will  appear  on  the  3277  terminal.  If  a  copy  of  the 
plot  is  desired,  do  so  now  before  pressing  the  enter  key. 
After  pressing  the  enter  key  on  the  3277  terminal,  the  plot 
will  be  erased  and  the  program  will  terminate.  Proper 
termination  will  result  in 

END  OF  DISSPLAY  9.2  ####  VECTORS  IN  1  PLOT... 
appearing,  followed  by  a  ready  message. 


120 


If  GRAPHS  was  set  to  0,  then  proper  termination 
would  be  a  ready  message.  The  tabular  listing  of  pressure, 
density,  velocity,  entropy,  and  Riemann  variables  will  be  in 
"FILE  FT09F001,"  The  exact  location  of  the  shock,  contact 
surface,  and  expansion  wave  with  elapsed  time  will  be  in 
"FILE  FT08F001."  The  computed  location  of  the  shock, 
contact  surface,  and  expansion  wave  with  elapsed  time  will 
be  in  "FILE  FTIOFOOI." 

A  second  method  to  compile  and  execute  the  program, 
plus  provide  the  files  with  a  name  is  to  create  the  follow- 
ing EXEC  file  on  the  user's  disk. 

FI  9  DISK  FILE09  LISTING  A(PERM 
FI  10  DISK  FILEIO  LISTING  A (PERM 
FI  8  DISK  FILE08  LISTING  A (PERM 
FORTVS  &1 

A  possible  file  name  and  required  file  type  would  be 

RUN  EXEC 

To  compile  the  program  and  define  the  output  files,  enter 

RUN  E1DV2 

After  compiling  is  finished,  and  the  ready  message  appears, 

enter 

DISSPLA  E1DV2 

The  program  executes  as  outlined  before. 
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APPENDIX  C 
FLOWCHARTS 

Flowcharts  for  major  routines  in  E1DV2  are  shown, 
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set  Initial    and 
boundary  conditions 


1 

set  Rlemann  variables 

set  up  graphs  plots 

call  "tln^e" 

call   "dburst" 

call   "list" 


no 


lnode(  1)=0 
rnode(  1  )=0 


Figure   C.l     Main   Program   Flowchart 
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no 


I 


call  extrap         call  bondry 


call  srflct 


reoeat  blocK  A 
for  left  boundary 


r  stop  ^ 


call  exact 


Figure   C.l    (Continued) 


124 


( input  data) 


locate  reference  node 
for  discontinuity  location 


determine  direction 
shock  travels 


calculate 

mREimn 


DREmn  =  mREimn 


calculate  W 


calculate  EREimn 


no 


D  =  |E-mi+D 


calculate  S' 

-* 

calculate  CSRmn 

1 

calculate  correct  mREimn    ] 

dJ 


CD 


Figure  C.2   "DBURST"  Subroutine  Flowchart 


125 


Q 


repeat  steos 
In  Dloclc  A  * 
wim  nev/  values 


calculate  S'new 


calculate 
shock  velocitu 


call  EXTRAP 


call  SKJUmP 


call  csjump 


call  IHTERD 
update  node 
at  diaphram 


Return 


no 


C3> 


S'  =  S'new 


Figure   C. 2  "  (Continued) 
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(  input  date) 

update  slgmadj) 
to  current  time 

determine  12(1) 

neutralize 
shocK 


yes 


a 


yes  y   high      x.    yes 

pressure  on 
right  ? 


sKdir-iert 


sKdir=right 


no 


yes 


adjust  i2(l) 
and  X2(l) 


no 


adjust  12(1) 
andx2(l) 


no 


Q       QD] 


Figure  C.3      "TRAK"   Subroutine   Flowchart  ■ 
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a 


calculate  w 
and  dq 


calculate  w 
anddq 


J 


calculate  mREimn 


DREmn  =  rriREimn 


calculate  W 


calculate 
AR.PR.DR.DQ 


no 


yes 


D  =   im-EI  +  D 


calculate  W 


Figure  C.3    (Continued) 
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yes 


DELT  =  .99TS 


calculate  sigmal  1 .2) 
at  nev/  time 


yes 


determine  CSDIR  i 


no 


can  "SKjump" 


Q  =QA 


calculate  Q 
account  for  shocV 


calculate 
average  Q 


con^pute   the  same 

as  In  A   but  for  flow  left 


Figure  C.3    (Continued) 
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calculate  sigma(2,2) 
at  ne\^/  time 


yes 


yes 


calculate 
VHEW  and 
VIEW 


calculate 
slgma(4,2) 
slgma(3.2)  and 


Figure  C.3    (Continued) 
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no 


(  Input  Data] 


compute  q 
and  A  at  each 
node 


call  "bondry" 
(for  left  boundary  node) 


1  =  2 


assign  1st  shocK  digit 


assign  2nd  shocK  digit 


shocK  =  1 00 


assign  3rd  shock  digit 


no 


Figure  C.4   "SWEEP"  Subroutine  Flowchart 
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cntact  =  10 


assign  1st  cntact  digit 


assign  Znd  cntact  digit 


assign  3rd  cntact  digitJ 


deteriTvine  whlcn 
condition  routine 
applies 


detern^ine  wmch 
condition  routine 
aoDlies 


determ  me  wh  ich 
condition  routine 
applies 


_J 


call  appropriate  condition  routine 


r 


call 
cond  1 


call 

icond3 


call 
cond2 


call 
cond4 


call 

ccndS 


call 

iCond7 


call 

r;,ond6 


call 

cond7s 


call 

cond7n 


5 


call 

cond8 


Figure  C.4    (Continued) 
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calculate  dw 


calculate  z 


Integrate  z 


solve  for 
RRSTEP.SSTEP. 

QQSTEP 


RRSTEP  =  0 
QQSTEP  =0 
SSTEP  -  0 


Store  solution 


1-1*1 


yes 


call  "bondry" 
(for  right  boundary) 


update  variables  to  new  time 


C 


I 


Return 


J 


Figure  C.4    (Continued) 
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MnputDotoN 


calculate 
initial  estimate 
of  LmD(l) 


calculate  interpolated 
values  of  q  ana  A 
at  point  A 


calculate  E(l).  error 


set  LITID  =  new  siooe 


yes 


no 


calculate  interpolated 
QQinT.RRlHT.SinT 


calculate 

spatial  derivatives 


C 


Return 


Figure  C.5   General  "CONDI,  2,    3,  and  5"  Subroutine  Flowchart 
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( Input  Data) 


set 
Rnode(  1 )  =  I 
Rnocie(2)  =  shock 
Rnode(3)  =  cntact 
Rnode(4J  =  J 


set 
Lnode(l)  =  I 
Lnode(2)  =  shock 
Lnode(3)  =  cntact 
Lnode(4)  =  J 


dW  =  0 


c 


Return 


) 


Figure  C.6   "C0ND4"  Subroutine  Flowchart 
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/"input  Data    ^ 
I 


define  statement 
functions 


no 


correct 
Inode 


b 


Figure  C.7   "CORRCT"  Subroutine  Flowchart 


136 


Figure  C.7    (Continued) 
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shoclc  -  100 

...^yes 

correct 
node 

cntact  '  321 ^ 

-^ yes 

no 

shocK •  100 

correct 
node 

— 

cntact  '  321 ^ 

-^ ^yes 

no 

shoclc  ■  32  1 

correct 
node 

- 

cntact  «=  10(3^*. 

no 

shock  -  23  1 

correct 
node 

— 

cntact  =  1 OCD^ 

^ 

no     M 

rnode(l)  =  0? 


no 


set  variables 

mode 
model  1 )  =  0 


yes 


Return 


Figure  C.7    (Continued) 
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f  Inout  Data    ^ 

1 

calculate  P2 

1 

determine 
left  or  right 
boundary 

no 


is 

^j=  1  .open  .con  St 
boundary  '^ 

no 


yes 


q  =  0 


set  values  in 
boundary  arrays 


set  values 

at  phanton^  node 


no 


set  values 

at  phantom  node 


print  statement 
HALT"  1 


no 


calculate  values 
at  phantoim  node 


Q 


Q  Q 


Figure  C.8   "BONDRY"  Subroutine  Flowchart 
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a 


b 


dw  =  0 


call  "condl" 


calculate  dw 


calculate  z 


I 


Q 


Figure  C.8    (Continued) 
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Integrate  z 


solve  for 
values  at  new 
tin^e  level 


store  solution 
in  nEWRR(n) 
nEWQQ(n) 
nEWS(n) 


shock  crossing 
^undary^ 


e 

■I— ^ 


update 
phantom  node 


calculate  PR  at  iooundary 
fron^  new  values 


calculate  error 
El  and  E2 


no 


update 
phantom  node 


Figure  C.8    (Continued) 
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c 


Input  Data 


) 


calculate  DELTWL 


calculate  DELTEX 


calculate  DQ  over 
reflected  shock 


calculate  W 


calculate 
AR.PR.DR  across 
shock 


calculate  S  and  A 
behind  shock 


calculate  Rien^qnn 

variables  at  boundary 


calculate  new  V 


calculate  new  sigrna(  1 .2) 


c 


Return 


) 


Figure  C.9   "SRFLCT"  Subroutine  Flowchart 
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APPENDIX   D 
E1DV2    FORTRAN   LISTING 

C  •»  " 

C  «  EULER-10  H 

C  »  VERSION  2  » 

C  »  (E1DV2)  » 

C  *  * 

C  »    THIS  PROGRAM  SOLVES  THE  EULER  EQUATIONS   » 

C  »   EXPRESSED  IN  A  QUAZI-ONE  DIMENSIONAL       » 

C  n        STREAMLINE  COORDINATE  SYSTEM.  » 

C  »»  » 

C  »   AUTHOR  -  LT.  O.T.  JOHNSTON, FEB  1987       » 

C  »  » 

CM  » 

C  •»   BASED  ON  THE  EULERl  CODE  BY  » 

C  »   T.F.  SALACKA,  DEC  1935  »» 

CM  « 

C  »   FEATURES  OF  THIS  VERSION  12)  « 

C  »   ♦  ORDER  OF  SPATIAL  DERIVITIVES  -  FIRST     » 

C  n        4   NUMBER  OF  SPATIAL  DIMENSIONS  -  ONE       » 

C  »   ♦  DISCONTINUITIES  TREATED  i  » 

C  »         SHOCKS  -  YES       * 

C  »  CONTACT  DISCONTINUITIES  -  YES       » 

C  *  EXPANSION  HAVES         -  YES       » 

C  »   ♦  HIGH  PRESSURE  SIDE 

C  »  LEFT  -  YES 

C  »  RIGHT  -  YES 

C  »  tt 

C  il)tH)H()IM«)ftttt««IM»KM«M1IWNffff»llllKVII«K«l*»l»»ilM«l«ff««ll«»* 

c 

C  *44*****4***  *■¥**■**************  ********^*  ******** 

C  ♦  ♦ 

C  ♦      CONVENTIONS   AND   DEFINITIONS         ♦ 

C  ♦  ♦ 

C  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦•»♦♦  ♦♦♦4**  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦  ♦♦♦♦♦♦ 

c 

C  NON-DIMENSIONING  CONVENTION 

C 

C       ALL  VELOCITIES  NON-DIM.  BY  THE  SOUND  SPEED  ON 

C  THE  LOW  PRESSURE  SIDE  OF  THE  DIAPHRAGM. 

C       ALL  PRESSURES,  DENSITIES,  AND  TEMPERATURES  ARE 

C  NON-DIM.  BY  THEIR  INITIAL  VALUES  ON  THE  LOW 

C  PRESSURE  SIDE  OF  THE  DIAPHRAGM. 

C       SPACIAL  DISTANCE  IS  NON-DIM. BY  OVERALL  LENGTH. 

C       ENTROPY  IS  NON-DIM.  BY  THE  GAS  CONSTANT,  R. 

C       TIME  IS  NON-DIM.  BY  (LENGTH/SOUND  SPEED). 

C       VELOCITIES  AND  DISTANCES  ARE  DEFINED  POSITIVE 

C  TO  THE  RIGHT. 

C 

C     — — SUBSCRIPT  NOTATION 

C 

C       I  -  SPACIAL  NODE   ( 1  TO  N  FROM  LEFT  TO  RIGHT) 

C       J  -  TIME  LEVEL    10  IS  THE  INITIAL  CONDITION  I 

C       K  -  DENOTES  WHICH  CHARACTERISTIC  HAVE  IS  BEING 

C  DEALT  WITH: 

C  I  »  Q*A    2  ■  Q     3  ■  Q-A 

C       L  -  DENOTES  WHICH  TYPE  OF  DISCONTINUITY  IS 

C  BEING  OEALT  WITH: 

C  1  =  SHOCK   2  ■  CONTACT  DISCOHTINUITY 

C  3  3  HEAD  OF  EXPANSION  HAVE 

C  4  ■  TAIL  OF  EXPANSION  HAVE 

C 
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c 

C  A      -  SPEED  OF  SOUND 

C  »A   -  DENOTES  THE  VALUE  OF  A  VARIABLE  AT  THE  NODE 

C  TO  THE  LEFT  OF  A  DISCONTINUITY.   »  CAN 

C  BE  ANY  VARIABLE  NAME. 

C  AR   -  THE  RATIO  OF  SOUND  SPEED  ACROSS  A 

C  SHOCK,  A/Bl SHOCK  MOVING  RIGHT  )  ,B/A( SHOCK  MOVING  LEFT) 

C  «B    -  DENOTES  THE  VALUE  OF  A  VARIABLE  AT  THE  NODE 

C  TO  THE  RIGHT  OF  A  DISCONTINUITY. 

C  BDRY  -  3  DENOTES  LEFT  BOUNDARY, 2  THE  RIGHT  BOUNDARY 

C  COUNT   -  COUNTER  FOR  GRAPHICS  ROUTINES 

C  DARRAY  -  ARRAY  OF  DENSITY  FOR  PLOTTING 

C  DELT   -  TIME  STEP 

C  DLCD   -  DENSITY  BEHIND  THE  CONTACT 

C  DISCONTINUITY  IN  THE  EXACT  SOLUTION. 

C  DLSH   -  DENSITY  BEHIND  THE  SHOCK  IN  THE 

C  EXACT  SOLUTION. 

C  Dq   -  THE  JUMP  IN  VELOCITY  ACROSS  THE  SHOCK 

C  DIVIDED  BY  THE  SOUND  SPEED  AT  S( RIGHT  )  OR  A(LEFT) 

C  DRI    -  INITIAL  DENSITY  RATIO  ACROSS  THE  SHOCK 

C  EE     -  DESIRED  PRECISION  FOR  CHARACTERISTIC  CALCULATIONS 

C  G      -  GAMMA  (RATIO  OF  SPECIFIC  HEATS) 

C  GRAPHS  -  FOR  GRAPHICAL  OUTPUT,   0=NONE  (TABULAR) 

C  1=PL0TS  ALL  VARIABLES 

C  2=C0MPARES  DENSITY  WITH  EXACT  SOLUTION 

C  Gl     -  1/(G-1) 

C  G2     -  2/(G-l) 

C  H      -  1/(N-1) 

C  HALT  -  TERMINATES  PROGRAM  IF  1,SET  BY  CONDITIONS  NOT  CODED 

C  12    -  NUMBER  OF  THE  NODE  TO  THE  RIGHT  OF  A 

C  DISCONTINUITY. 

C  JSTOP   -  NUMBER  OF  TIME  LEVELS  TO  BE  CALCULATED 

C  LBDDR  -  LEFT  BOUNDARY  DENSITY  RATIO 

C  LBDDRI  -  LEFT  BOUNDARY  DENSITY  RATIO  AT  TIME  ZERO 

C  LBDPR  -  LEFT  BOUTJDARY  PRESSURE  RATIO 

C  LBOPRI  -  LEFT  BOUNDARY  PRESSURE  RATIO  AT  TIME  ZERO 

C  LBOPRS  -  VALUE  OF  0  DENOTES  CONSTANT  PRESSURE  AT  LEFT  BOUNDARY 

C  ,1  DENOTES  ADJUSTABLE  PRESSURE  AT  THE  LEFT  BOUNDARY 

C  LBOTR  -  LEFT  BOUNDARY  TEMPERATURE  RATIO 

C  LBOTRI  -  LEFT  BOUNDARY  TEMPERATURE  RATIO  AT  TIME  ZERO 

C  LBNDRY  -  DENOTES  LEFT  BOUNDARY  CONDITION,  OPEN  OR  CLOSED 

C  LNODE  -  ARRAY  OF  LEFT  MOST  NODE  TO  BE  CORRECTED  IN  CORRCT 

C  LWPRES  -  OENOTES  HHICH  SIDE  OF  DIAPHRAGM  HAS  LOW  PRESSURE 

C  N       -  NUMBER  OF  SPACIAL  NODES  (ODD  NUMBER  I 

C  ND     -  DOUBLE  PRECISION  VALUE  OF  N 

C  NEW»»(I)-  STORED  VALUES  OF  **  FOR  THE  NEXT  TIME  LEVEL 

C  PARRAY  -  ARRAY  OF  PRESSURES  FOR  PLOTTING 

C  PRI    -  INITIAL  PRESSURE  RATIO  ACROSS  THE  SHOCK 

C  PLTCNT  -  COUNTER  FOR  GRAPHICS  ROUTINES 

C  Q      -  ABSOLUTE  FLUID  VELOCITY 

C  QARRAY  -  ARRAY  OF  VELOCITIES  FOR  PLOTTING 

C  QLBD  -  INITIAL  VELOCITY  AT  LEFT  BOUNDARY 

C  (3LI    -  INITIAL  VELOCITY  LEFT  OF  THE  DIAPHRAGM 

C  QRBD  -  INITIAL  VELOCITY  AT  RIGHT  BOUNDARY 

C  QRI     -  INITIAL  VELOCITY  RIGHT  OF  THE  DIAPHRAGM 

C  QQ     -  Q+A»S  (EXTENDED  RIEMANN  VARIABLE) 

C  RBDDR  -  RIGHT  BOUNDARY  DENSITY  RATIO 

C  RBDDRI  -  INITIAL  RIGHT  BOUNDARY  DENSITY  RATIO 

C  RBDPR  -  RIGHT  BOUNDARY  PRESSURE  RATIO 

C  RBDPRI  -  INITIAL  RIGHT  BOUNDARY  PRESSURE  RATIO 

C  RBDPRS  -  VALUE  OF  0  DENOTES  A  CONSTANT  PRESSURE  AT  RIGHT 

C  BOUNDARY,  WHILE  1  IS  FOR  ADJUSTABLE  PRESSURE 

C  RBDTR  -  RIGHT  BOUNDARY  TEMPERATURE  RATIO 

C  RBDTRI  -  INITIAL  RIGHT  BOUNDARY  TEMPERATURE  RATIO 

C  RBNDRY  -  DENOTES  RIGHT  BOUNDARY  OPEN  OR  CLOSED 

C  RNODE  -  ARRAY  FOR  RIGHT  MOST  NODE  TO  BE  CORRECTED  IN  CORRCT 

C  RR      -  q-A*S  I  EXTENDED  NIEMANN  VARIABLE) 

C  S       -  ENTROPY 

C  SARRAY  -  ARRAY  OF  ENTROPY  FOR  PLOTTING 
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C  SIGMA  -  SPATIAL  LOCATION  OF  DISCONTINUITIES 

C  SIGMA(L,J)  WHERE  L  IMCICATES  THE  TYPE  OF 

C  DISCONTINUITY   AND  J  INDICATES  THE 

C  TIME  LEVEL  J   1  -  CURRENT  LEVEL 

C  2  -  LEVEL  BEING  CALCULATED 

C  SK  -  INTEGER  THAT  DENOTES  RELATIVE  LOCATION  OF  SHOCK  NEAR 

C  BOUNDARIES 

C  SKIP    -  VARIABLE  WHICH  INDICATES  HOW  MANY  TIME  STEPS  BETWEEN 

C  CALLS  TO  OUTPUT  ROUTINES 

C  T       -  TIME  SINCE  INITIAL  CONDITIONS 

C  TRI     -  INITIAL  TEMP.  RATIO  ACROSS  THE  SHOCK 

C  VHEAD   -  VELOCITY  OF  THE  HEAD  OF  THE  EXPANSION 

C  WAVE  FOR  THE  EXACT  SOLUTION, 

C  VTAIL   -  VELOCITY  OF  THE  TAIL  OF  THE  EXPANSION 

C  WAVE  FOR  THE  EXACT  SOLUTION. 

C  VCDE    -  VELOCTIY  OF  THE  CONTACT  DISCONTINUITY 

C  FOR  THE  EXACT  SOLUTION. 

C  VS    -  THE  SHOCK  SPEED( POSITIVE  RIGHT,  NEGATIVE  LEFT) 

C  VSE     -  VELOCITY  OF  THE  SHOCK  FOR  THE  EXACT 

C  SOLUTION. 

C  W      -  MACH  NO.  RELATIVE  TO  A  STANDING  SHOCK 

C  XARRAY  -  ARRAY  OF  SPATIAL  POSITIONS  FOR  PLOTTING 

C  XEXACT  -  ARRAY  OF  SIX  X  VALUES  FOR  THE  EXACT  SOLUTION. 

C  XINIT   -  INITIAL  POSITION  OF  DISCONTINUITY  FOR 

C  EXACT  SOLUTION  PLOTTING. 

C  X2      -  LOCATION  OF  NODE  TO  RIGHT  OF  DISCONT. 

C  ALONG  THE  SPACIAL  AXIS. 

C  Y       -  (N+l)/2 

C  YEXACT  -  ARRAY  OF  SIX  DENSITY  VALUES  FOR  THE  EXACT  SOLUTION. 

C 

C  **n   OTHER  VARIABLES  ARE  DEFINED  IN  THE 

C  SUBROUTINES  WHERE  THEY  ARE  USED  **** 

C 

C  ♦+♦■♦+•♦♦♦♦+♦♦♦++++♦+♦♦+♦•••♦+♦♦+♦+♦♦♦♦■(•+++++♦+♦♦+♦♦ 

c  +  ♦ 

C  ♦  PROBLEM      SET    -   UP  * 

C  ♦  ♦ 

c  ♦♦♦♦♦♦♦♦♦♦♦♦++♦■♦•+♦+♦♦♦♦♦♦♦♦♦♦♦■♦•♦♦♦♦++♦♦++++♦♦■»++ 

c 

C     THE  PARTICULAR  PROBLEM  FOR  THIS  VERSION  IS: 

C 

C         SHOCK  TUBE,  SINGLE  CENTERED  DIAPHRAGM  WITH 

C         HIGH  PRESSURE  SIDE  TO  THE  RIGHT. 

C 

C         BOUNDARY  CONDITIONS  -  LEFT  END  CLOSED, RIGHT  END  OPEN 

C 

C      VARIABLE   DECLARATIONS   

C 

DIMENSION  I2(  <*  )  ,X2(  4  )  ,XEXACT(  6  )  ,YEXACT(  6  )  ,LNOOE(  <♦ )  ,RNODE(  <♦  1 , 

C  SIGMA! 4, 2) 

C 

C     ♦♦♦+♦♦♦  USER  INPUT  REQUIRED  HERE  ♦+♦♦+♦♦+♦♦+♦++♦ 
C 

C  SET  THE  DIMENSIONS  EQUAL  TO  N  

C 

DIMENSION  A( 101 )  ,Q( 101 )  ,QQ( 101 )  ,RR( 101 ) ,S( 101 ) , 

C  NEWRR( 101 )  ,NEWS( 101 ) ,NEWQQ(  101 ) , 

C  PARRAY( 101 )  ,DARRAY( 101  )  ,SARRAY( 101 ) , 

C  QARRAY(101),XARRAY(101) 

C 

INTEGER  I , J ,N,JSTOP ,Y , GRAPHS, COUNT ,PLTCNT ,BDRY ,SK ,RBNDRY , 

C         SKIP, 12, LWPRES, HALT, LNOOE, RHODE, LBNDRY.LBDPRS.RBOPRS 
DOUBLE  PRECISION  TRI ,PRI ,QLI ,QRI ,DRI ,G,G1 ,G2 , SIGMA, EE ,NEWqQ, 

C  DELT,H,ND,X2,AR,W,DQ,VS,T,A,Q,QQ,RR,S,NEWRR,NEWS, 

C  LBDPRI,LBOTRI,LBDORI,LBOPR,LBODR,LBDTR,QLBD, 

C  RRA  ,QQA  ,AA  ,SA  ,QA  .RR8  ,QQB  .AB  .SB  ,»3B  , 

C  RBOPRI ,RBOTRI ,RBDDRI ,RBOPR ,RBDDR ,RBDTR ,qRBD , 

C  QCS,VTEW,VHEW 

REAL  VTAIL, VCDE, VSE, DLSH,DLCJ), XINIT, VHEAD, 
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C     XEXACT ,YEXACT ,PARRAY ,D ARRAY ,SARRAY ,QARRAY ,XARRAY 

COMMON  AR,DQ,VS,W 
C 

C     ENTER  THE  APPROPRIATE  VALUES  BELOH  

C 

N=  101 

GRAPKS=1 
C 

C     FOR  GRAPH  =  1  OR  2  MUST  EhfTER  CHANGES  IN  SUBROUTINE 

C     BORDER  AND  SUBROUTINE   EXACT  

C      LINES  "FIRST  ORDER    N  =  ???" 

C      "DENSITY  RATIO  =  ???   TEMP  RATIO  =  ???" 

C      "PRESSURE  RATIO  =  ???" 

G 


SKIP=18 

JST0P=101 

TRI=1.0DOO 

PRI=5.0D00 

DRI^S.OOOO 

QLI=O.ODOO 

QRI=O.ODOO 

LBDPRI  =  1. 

,000 

LBOTRI  =  1. 

DOG 

LBDDRI  =  1. 

,000 

RBDDRI  =  1. 

,000 

RBDPRI  =  'i. 

,000/5.000 

RBDTRI  =  1, 

.000 

G=1.<*D00 

EE=0.1D-8 

c 

C  DENOTE  LOW  PRESSURE  SIDE  BY  SETTING  

C  LWPRES  =  2  IF  LOW  PRESSURE  ON  RIGHT 

C  LWPRES  =  3  IF  LOW  PRESSURE  ON  LEFT 

C 

LWPRES  =  3 
C 

C  SET  BOUNDARY  CONDITIONS  BY  SPECIFING  OPEN  OR  CLOSED  

C  LBNDRY:  OPEN  =  0,  CLOSED  =  1  (FOR  LEFT  BOUNDARY)  

C  IF  OPEN  SPECIFY  IF  PRESSURE  IS  TO  BE  MAINTAINED  AT  LBDPRI  

C  OR  IF  IT  CAN  ADJUST  TO  PREVENT  ANY  WAVES  FORMING  AT  THE  BOUNDARY 

C  LBDPRS:  CONSTANT  =  0,  ADJUSTABLE  =  1  

C  DO  THE  SAME  FOR  RIGHT  BOUNDARY)  RBNORY ,RBDPRS  

C 

LBNDRY  =  1 

LBDPRS  =  1 

RBNDRY  =  0 

RBDPRS  =  0 
C     EXACT  SOLUTION  VALUES 

XINIT=O.S0 

VHEAD=  1.0 

VTAIL=    0.310557 

VC0E  =  -.57<+487 

VSE=-1. 402346 

0LC0=2. 713115 

DLSH=1. 69344 

SIGMA! 1,2 )=0.50000001DOO 

SIGMA( 2,2  )=0.50000001D00 

SIGMA( 3,2 1=0.50000001000 

SIGMA(4,2 )=0.50000001DOO 
C 

C      ♦♦♦♦♦♦+♦♦♦   END   OF   USER   INPUT   AREA   ♦♦♦++♦♦+ 
C 


SK  =  0 

T=O.ODOO 

DO  10  1=1,4 
121 1  )=0 
LNODE(I)  =  0 
RNOOE(I)  =  0 
X2(I)=0.0De0 
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SIGMA(I,l)sO.ODOO 

10  C0^4TINUE 

ND=OBLE(N) 
H=1.D00/(ND-1.D00) 
DO  11  1=1, N 

A(I)=O.ODOO 

Q(I)=O.ODOO 

NEWQQ(I)=0.0000 

NEWRR(I)=O.ODOO 

NEWS(I)=0.0000 

QARRAY(I)=0.0 

PARRAY(I)=0.0 

DARRAYd  )=0.0 

SARRAY(I)=0.0 

XARRAYl I  )=FLOAT( I-l )*SNGL( H ) 

11  CONTINUE 

DELT=2.0D00 
C 

C  LOAD  INITIAL  REIMAN  VALUES  INTO  NODE  LOCATIONS, FIRST  FROM  NODE- 

C  1  TO  MIDPOINT  (Y),  AND  THEN  FROM  Y  TO  N.  NOTE  IF  SHOCK  DOES  NOT- 

C  START  AT  MIDPOINT  THEN  Y  SHOULD  BE  SET  TO  NODE  WHERE  SHOCK  

C INITIALLY  IS 

C 

ARsl.ODOO 

Dg=O.ODOO 

N=1.0D00 

VS=O.ODOO 

QCS=O.DOO 

VHEW=O.DOO 

VTEW=O.DOO 

G1=1.D00/(G-1.D00) 

62=2.D00/(G-1.D00) 
C 

C FLON  RIGHT 

C 

1F(LHPRES.£Q.2)  THEN 

LBDDR  =  ORI  »  LBDORI 

LBDPR  =  PRI  *  LBDPRI 

LBDTR  =  TRI  »  LBDTRI 

QLBD  =  QLI 

RBDDR  =  RBODRI 

RBDPR  =  RBDPRI 

RBDTR  =  RBDTRI 

QRBD  =  QRI 

Y  =  (N+l)/2 

c  y   =  38 

DO  12  1=1, Y 

S( I  )=G2-( Gl/G  )»DLOG( PRI/( ( DRI )**G ) ) 
QOI I  )=QLI+OSQRT( TRI )»S) I ) 
RR( I  )=QLI-OSQRT( TRI )»S(  I ) 

12  CONTINUE 

Y=(N+3)/2 
C        Y=39 

DO  13  I=Y,N 

S(I)=G2 

QQ(I)=QRI+S(I) 

RR(I)=QRI-S(I) 

13  CONTINUE 
ELSE 


c 

C  — 

—  FLOH  LEFT  

c 

LBDDR  =  LBDDRI 

LBDPR  =  LBDPRI 

LBDTR  =  LBDTRI 

QLBD  =  QLI 

RBDDR  =  RBODRI  »   DRI 

RBDPR  =  RBDPRI  »  PRI 

RBDTR  =  RBDTRI  *  TRI 
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QRBO  3  QRI 

Y  =  (N-l)/2 
C        Y  »  13 

DO  1^  1=1, Y 
S(I)=G2 

QQ(I)=QLI-fS(I) 
RR(I)=QLI-S(I) 

14  CONTINUE 

Y  =  (N+l)/2 
C        Y  =  14 

DO  15  I=Y,N 

S( I )=G2-( Gl/G )»0LOG( PRI/( ( DRI  )»»G  ) ) 
QQ( I  )=QRI+OSQRT( TRI  )»S( I  ) 
RR( I  )=qRI-OSQRT( TRI  )*S( I  ) 

15  CONTINUE 
END  IF 

C 

C  SET  UP  GRAPHICS  PLOTS  OF  VARIABLES  

C 

IF  ( GRAPHS. GT.O)  THEN 
CALL  COMPRS 
C        CALL  TEK618 

CALL  HWROT( 'AUTO' ) 
CALL  HWSCALI  'SCREEN'  ) 
IF  (GRAPHS. EQ. 2)  THEN 

CALL  PA6E( 11.0,8.5) 
ELSE 

CALL  PAGE(8.5,11.0) 
END  IF 

IF  ( GRAPHS. EQ.l)  THEN 
CALL  BQRDER(JSTOP) 
END  IF 
END  IF 
HALT  =  0 
J  =  l 

COUNT =1 
IF    ( GRAPHS. EQ.l)  THEN 

CALL  PLOT(J,JSTOP,N,Qq,RR,S,H,XARRAY,PARRAY, 
ftOARRAY ,qARRAY ,SARRAY ,G,G1 ,G2 ) 
END  IF 
C 

C  BURST  DIAPHRAGM  

C 

CALL  TIMElN,QQ,RR,S,OELT,H) 

CALL  0BURST(N,H,QQ,RR,S,G,G1,G2,DELT,I2,X2,W,AR,DQ,VS,LWPRES, 
C  SIGMA, A, Q) 

C 

IF  ( GRAPHS. EQ.O)  THEN 

CALL  LIST(N,SIGMA,QQ,RR,S,G,Gl,G2,J,T,DELT,VS,qCS,VTEW,VHEH, 
C  XINIT,VHEAD,VTAIL,VCOE,VSE) 

END  IF 
C 

C  BEGIN  CALCULATION  FOR  JUMP  TO  NEXT  TIME  AND  CONTINUE  

C  UNTIL  EITHER  JSTOP  REACHED  OR  SHOCK  MEETS  CONTACT  SURFACE  

C 

16   IF  (J.EQ.JSTOP)  GOTO  18 
PLTCNT=J/SKIP 
C 

CALL  TIME(N,Qq,RR,S,DELT,H) 
C 

CALL  TRAK(N,SIGMA,H,QQ,RR,S,G,Gl,G2,DELT,I2,X2,W,AR,Dq,VS,J, 
C  LWPRES,QCS,VHEW,VTEW) 

C 

CALL  SWEEP! N,H, SIGMA, qq,RR,S,DELT,EE,q, A, NEHqq,NEWRR, NEWS, 12, G2, 
C  J,LNODE.RNO0E.HALT,LBNDRY,LB0PRS,LBDPR,LBDTR,LBDDR, 

C  QLBO ,G ,ol ,RBNDRY  ,RBDPRS ,RBDPR  .RBDTR  ,RBDDR  ,QRBO  ,3DRY  , 

C  SK) 


IF(LN0DE(4).LT.J)  THEN 
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LWODE(l) 

B  0 

RNODEdJ 

=  0 

GO  TO  17 

END 

IF 

1F(RN0DE(^).LT.LN0DE(4)) 

THEN 

RNODE(I)  - 

0 

END 

IF 

CALL  CORRCT(LNODE, RHODE, N, SIGMA, H,QQ,RR,S,G,G1, 62, I2,X2,H,AR,DQ, 
C  VS,A,Q) 

C 

17  IF  (SIGMA(1,2).GE.1.D00)  THEN 
IF(RBNDRY.£Q.O)  THEN 

IF(SIGMAll,2).NE.3.DO0)  THEN 
SK  =  2 

CALL  BONORYC  Ql N ) ,g( N-1) ,QRBO ,A( N ) ,A( N-1 )  ,qQ( N  )  ,QQ( N-1 ) , 
C  RR(N),RR(N-1),S(N),S(N-1),H,EE,DELT, 

C  RBNORY ,RBOPRS ,RBOPR ,RBOOR ,RBOTR , J ,NEMQg( N ) , 

C  .  NEHRR(N),NEW2(N),G,G1,G2,HALT,B0RY,SK) 

END  IF 
ELSE 

CALL  EXTRAP( RR( N-1 ) ,RR( N-2  )  ,QQ( N-1 )  ,QQ( N-2 ) ,S( N-1 ) , 
C  S(N-2),H,H,RRA,gQA,SA,AA,gA) 

CALL  SRFLCTI QQA ,RRA ,SA , SIGMA ,VS ,OELT , LHPRES, 
C  RR(N),qQ(N),S(N),g(N),A(N),G,Gl,G2) 

END  IF 
END  IF 
C 

IF  (SIGMA(l,2).LE.0.0OO)  THEN 
IFtLBNDRY.cQ.O I  THEN 

IF(SIGMA(1,2).NE.-2.D00)  THEN 
BDRY  =  3 
SK  =  2 

CALL  BONORYI  Q(  1 )  ,gii  2  )  ,QLBO  ,A(  1 )  ,A(  2  )  ,QQ(  1 )  ,QQ(  2  ) , 
C  RR(l),RRI2),Sll),S(2),H,EE,0ELT, 

C  LBNDRY,LBOPRS,LBOPR,LBOOR,LBOTR,J,NEWQQ( 1 ), 

C  NEHRRl 1 )  ,NEWS( 1 1  ,G ,G1 ,G2 ,HALT ,BORY ,SK  ) 

END  IF 
ELSE 

CALL  EXTRAP(  RR(  2  I  ,RR(  3  )  ,QQ(  2  )  ,Qq(  3  » ,S(  2  ) , 
C  S(3),H,H,RRB,QQB>SB,AB,QB) 

CALL  SRFLCTI QQB ,RRB ,SB , SIGMA ,VS ,DELT ,LWPRES , 
C  RR(  I).QQ(  1),2(I).Q(  1  l,A(l  ),G,G1,S2) 

END  IF 
END  IF 
T=T+DELT 
C 

C OUTPUT  DATA 

C 

IF  (  (COUNT.  EQ.PLTCNT*SKIP).  AND.  (  GRAPHS.  EQ.D) 
C     THEN 
C      IF(JJ.GT.S5))  THEN 

CALL  PLOT( J,JSTOP,N,QQ,RR,S,H,XARRAY,PARRAY, 
CDARRAY ,QARRAY ,SARRAY ,G ,G1 ,G2  ) 
C      END  IF 

END  IF 

IF  ((  COUNT.  EQ.PLTCNT»SKIP).  AND.  ( GRAPHS.  EQ.  on 
C      THEN 

CALL  LIST(N,SIGMA,QQ,RR,S,G,G1,G2,J,T,DELT,VS,QCS,VTEH,VHEW, 
C  XINIT,VHEAD,VTAIL,VCDE,VSE) 

END  IF 

I F  ( ( COUNT . EQ . PLTCNT»SKIP ) . AND . ( GRAPHS . EQ . 2 ) ) 
C     THEN 
IF  (J.GT.50)  THEN 

CALL  EXACT!  N.XINIT ,T .VHEAD ,VTAIL ,VCDE ,VSE ,DLCD ,DLSH ,QQ,RR ,S ,H , 
CXARRAY ,0 ARRAY ,G ,GI ,G2 ,ORI  ) 
END  IF 
END  IF 
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TF(HA',T.Eq.l)  GO  TO  18 
J=J*l 

C01JNT=CCUNT+l 
GO  TO  16. 
18  CALL  DCNEPL 
END 

C  »»»»««*»»»»«)(»*»»»«*»»»»»♦*»»*»»»»»»»«*»»»»♦««>«#«» 

C 

SUBROUTINE    LIST(N,SIGMA,QQ,RR,S,G,Gl,G2,J,T,DELT,VS,QCS,Vn"EW, 
C  VHEW ,XINIT ,VHEAD , VTAIL , VCDE ,VSE ) 

C 

C  ♦+♦♦♦♦♦♦♦♦♦♦+++♦•♦•■♦•♦♦+♦•*+■»•++♦■•■+•♦++♦♦•»•♦•++♦•♦♦♦•♦■♦+♦♦ 

c  +  ♦ 

C  ♦  TABULAR      RESULTS      SUBROUTINE  ♦ 

C  +  + 

c  ♦♦+♦♦+♦♦♦♦♦♦+++♦♦♦♦♦♦+♦♦♦♦♦♦♦♦•♦•♦+♦♦♦♦++♦♦•♦•♦++♦+♦ 

c 

C VARIABLE  DEFINITIONS 

C 

C     DENS  -  DENSITY 

C     PRESS  -  PRESSURE 

C     TEMP   -  TEMPERATURE 

C 

INTEGER  I,J,N,L 

DIMENSION  SIGMAC<V,2),Qq(N),RR(N),S(N) 

DOUBLE  PRECISION  SIGMA, QQ.RR.S, PRESS, VTEW, VHEW, QCS, TEWXE , 
C  TEMP, DENS, G,G1,G2,Q,T,0ELT,VS,HEWXE, 

C  XINIT.VHEAD, VTAIL, VCDE, VSE,SKXE,CSXE 


TIME  LEVEL', J,*  ELAPSED  TIME  IS',T 

TIME  STEP  IS',OELT,'     SHOCK  VELOCITY  IS',VS 
CONTACT  SURFACE  VELOCITY  IS'.QCS 
HEAD  EXPANSION  WAVE  VELOCITY  IS',VHEH 
TAIL  EXPANSION  WAVE  VELOCITY  IS'.VTEW 

NODE         VELOCITY  DENSITY 


WRITE(9,»0 
WRITE(9,») 
WRITE(9,») 
WRITE( 9,»( 
WRITE! 9, ») 
WRITE(9,») 
WRITE(9,») 
CPRESSURE • 
WRITE! 9, »)  '  ' 
DO  61  1=1, N 

TEMP  =  ( QQ( I )-RR( I ) )»( QQ( 1 1-RR( I ) )/( 4.D00»S( I )»S( I  )  ) 
OENS=( ( 1.000/TEMP)»0EXP(G»( 1.000-G  )»( SI  I  )-G2  ) ) )»»( -Gl) 
PRESS=TEMP»OENS 
Q=(QQ(I J+RRII  )  )/2.0D00 
WRITE  (9,65)  I, Q, DENS, PRESS 

65  FORMAT  ( 4X,I2 ,7X,F12.6,7X,F12.6,7X,F12 .6 ) 

61  CONTINUE 

WRITE! 9, »)  '  • 
WRITE19,*)  •  ■ 

WRITE! 9, »)  ■    NODE  QQ  RR 

CMODIFIED  S' 
WRITE! 9,*)  '  ' 
DO  62  1=1, N 
WRITE  (9,66)  I,Qq(I),RR(I},S(I) 

66  FORMAT  ( '♦X,I2,7X,F12.  6,7X,F12.6,7X,F12.6  ) 

62  CONTINUE 

WRITE!9,») 
WRITE! 9, ») 
WRITEI9,*) 
WRITE!9,») 
WRITE! 9,*  I 
DO  63  L:!,** 

WRITE!9,»)  L,'     ',SIGMA(L,2) 

63  CONTINUE 

WRITE! 9, »1  '  ■ 

WRITE! 9,*)  ' 

C 

WRITE! 9, »)  '  ' 
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DISCONTINUITY  LOCATIONS  AT  TIME  LEVEL*, J 
TYPE         LOCATION" 


WRITE(9,»»)  '  • 
IF(J.EQ.1I  THEN 

WRITE ( 10, J»)  •    TIME         SHOCK        CONTACT      HEAD 
C  TAIL' 
WRITEI10,»)  •   ' 
END  IF 
HRITE( 10,67)  T,SIGMA(1,1),SIGMA(2,1),SIGMA(3,1),SIGMA<4,1) 

67  FORMAT  ( 1X,F12.6,1X,F12.6,1X,F12.6,1X,F12.6,1X,F12,6 ) 

IF«J.EQ.l)  THEN 
WRITE (8,*)  '     EXACT  VALUES' 

WRITE(8,»)  '    TIME  SHOCK        CONTACT      HEAD 

C  TAIL' 
WRITE(8,»)  •   ' 
END  IF 

SKXE=XINIT+VSE»T 
CSXE=XINIT+VCOE»T 
HEWXE=XINIT+VHEAD»T 
TEWXE=XINIT+VTAIL»T 
WRITE  1 8 ,68  )  T ,SKXE ,CSXE ,HEWXE ,TEWXE 

68  FORMAT  ( 1X,F12.6,1X,F12.6,1X,F12.6,1X,F12.6,1X,F12.6  ) 

RETURN 

END 
C 

SUBROUTINE  TIME(N,Qq,RR,S,OELT,H) 
C 

CM  W 

C     *  CALCULATE   TIME   STEP  SUBROUTINE      » 

C  *  * 

C 

C     NEW  VARIABLE   DEFINITIONS   

C 

C     TMIN  -  RUNNING  VALUE  OF  THE  MINIMUM  TIME  STEP 

C 

INTEGER  N,I 

DIMENSION  QQ(N),RR(Nl,SrN) 

DOUBLE  PRECISION  H,A,Qq,RR,S,DELT,TMIN,Q 

TMIN=2.0D00 

DO  21  1=1, N 

A  =  ( QQl I  )-RR( I ) )/( 2. DOOKS(  I ) ) 
Q=(QQ(I)+RR(I))/2.0D00 
DELT=H/( DABS( OABS(  Q 1+A ) ) 
IF  (DELT.LT.TMIN)  THEN 
TMIN=OELT 
END  IF 
21  CONTINUE 

DELT=0.99D00»TMIN 
RETURN 
END 
C 

SUBROUTINE  TRAK( N, SIGMA, H,Qq,RR,S,G,Gl,G2,DELT, 12, X2 ,W,AR,Dq,VS, 
»J ,  LWPRES ,QCS , VHEW , VTE W ) 
C 

C     »»«»»»»**«»)(**»»*»»»*»**»»«»»»*»«»*»»*»»»»*»»«»» 
c  »  » 

C     »      DISCONTINUITY  TRACKING  SUBROUTINE       » 
C  »  * 

C 

C  VARIABLE   DEFINITIONS  

C 

C  CSDIR  -  CONTACT  SURFACE  DIRECTION,  2  TO  THE  RIGHT, 3  TO  THE  LEFT 

C  CSRMN'-  RIEMANN  VARIABLE  CHANGE  ACROSS  A  CONTACT  SURFACE 

C  DR   -  THE  RATIO  OF  THE  DENSITY  ACROSS  A 

C  SHOCK,  3/A( RIGHT  ),B/A( LEFT) 

C  DREMN  -  DUMMY  VARIABLE 

C  PR   -  THE  RATIO  OF  THE  PRESSURE  ACROSS  A 

C  SHOCK,  A/B( RIGHT ),B/A(  LEFT) 
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C     MREIMN  -  THE  MEASURED  JUMP  IN  Q<3  ACROSS  THE  SHOCK, 

C  FROM  A  TO  B. 

C     EREIMN  -  THE  JW1P  IN  QQ  ACROSS  THE  SHOCK  CALCULATED  ANALYTICALLY 

C  AS  A  FUNCTION  OF  H. 

C     SAP  -  ENTROPY  TO  THE  LEFT  OF  THE  SHOCK  FOR  FLOWS  RIGHT 

C  OR  ENTROPY  TO  THE  RIGHT  OF  THE  C.S.  FOR  FLOWS  LEFT 

C     S8P  -  ENTROPY  TO  THE  RIGHT  OF  THE  C.S.  FOR  FLOWS  RIGHT 

C  OR  ENTROPY  TO  THE  LEFT  OF  THE  SHOCK  FOR  FLOWS  LEFT 

C     SHKDIR  -  SHOCK  DIRECTION  OF  TRAVEL, 3  TO  THE  LEFT,C  TO  THE  RIGHT 

C     TS  -  TIME  FOR  SHOCK  TO  TRAVEL  ONE  INTERVAL 

C     X  -  DISTANCE  FROM  LEFT  BOUNDARY  TO  NODE 

C 

INTEGER  N,I,Y,I2,L,J,SHK0IR,CS0IR,LWPRES 
DIMENSION  SIGMA( 4,2)  ,X2( 4  )  ,RRl N ) ,QQ( N  )  ,S( N ) ,I2t  4 ) 
DOUBLE  PRECISION  SIGMA ,X2 ,X,H ,AB ,SA , SB, AA,gA,QB,QQA ,QgB,RRA,RRB, 
C  RR,QQ,S,TS,W,DQ,AR,PR,G,G1,G2,VS,DELT,CSRMN, 

C  Q, MREIMN, DREMN, EREIMN, WW, SA1,SA2, SAP ,SBP 

C  AW,QW,VHEW,VTEW,TIME,QCS 

C 

C      44.4^4^4.4.   LOCATING  THE  UPSTREAM  NODE  4  +  +  4  +  4  +  4+*+ 
C 

DO  10  L=I,4 

SIGMA(L,1)=SIGMA(L,2) 
Y=0 

X=O.DOO 
1  =  1 
11     IF  ( .NOT.(Y.EQ.O))  GOTO  10 

IF  (SIGMA(L,1).LT.X)  THEN 
X2(L)=X 
I2(L)=I 
Y=l 
END  IF 
X=X*H 
1  =  1  +  1 
GOTO  11 
10    CONTINUE 
C 

C  IF  SHOCK  HAS  LEFT  AN  OPEN  BOUNDARY  OUT  OF  THE  TUBE  THEN  SET  

C 

C 


HDC^  TO  N 
IF  (12(11 

ItUTRAL 

i.GT.N)  THEN 

SIGMA(1,1) 

=  2. 

.000 

SIGMA(1,2) 

=  3, 

,000 

W  = 

■■    l.DOO 

VS 

=  1.000 

DQ 

=  O.DOO 

AR 

=  O.DOO 

PR 

=  l.DOO 

DR 

=  1.000 

GO 

TO  150 

ELSE  IF(I2ll).LT. 

2)  THEN 

SIGMAd.l) 

=-1. 

.000 

SIGMA(1,2) 

=  -2 

.DOO 

W  = 

:  l.DOO 

VS 

=-1.000 

DQ 

=  O.DOO 

AR 

=  O.DOO 

PR 

=  l.DOO 

DR 

=  l.DOO 

GO 

TO  150 

END  IF 

c 

C     ♦♦♦+4+*+4*4++   DETERMINING  SHOCK  SPEED   ++♦+♦♦+♦ 
C 

IF((J.Eg.l).0R.(I2(l).EQ.2).0R.(I2(l).EQ.N))  THEN 
C 

C  AT  TIME  ZERO  OR  BOUNDARYS  DETERMINE  CORRECT  SHOCK  DIRECTION- 

C  SHKDIR  =  3  IS  A  SHOCK  HEADED  LEFT,  AND  SHKDIR  =  2  IS  SHOCK— 

C TRAVELING  RIGHT 

152' 


IF(LWPRES.EQ.5)  THEN 
SHKDIR   =  3 
IF   (J.EQ.l)  THEN 


X2(l)  =  X2(l) 

-  H 

12(1)  =  12(1) 

-  1 

X2(2)  =  X2(2) 

-  H 

12(2)  =  12(2) 

-  1 

END  IF 

GO  TO  20 

ELSE 

SHKDIR  =  2 

END  IF 

GO  TO  20 

c 

C  IF  SHOCK  AND  CONTACT  SURFACE  ARE  NOT  WITHIN  THE  SAME 

C  INTERVAL  THEN  NO  CORRECTIONS  ARE  NEEDED  IN  CALCULATING 

C  THE  REIMAN  VARIABLE  JUMP  ACROSS  THE  SHOCK 

C 

ELSE  IF  (12(1). NE. 12(2))  THEN 

IF( ( SHKDIR . EQ . 3  ) . AND . ( SIGMA( 1 , 1 ) • EQ . ( X2( 1 )-H ) ) )  THEN 
X2(l)  =  X2(l)  -  H 
12(1)  =  12(1)  -  1 
END  IF 
GO  TO  20 
C 

C  IF  SHOCK  AND  CONTACT  SURFACE  ARE  WITHIN  THE  SAME  INTERVAL 

C  THEN  CORRECTIONS  ARE  REQUIRED  TO  DETERMINE  SHOCK  STRENGTH 

C 

ELSE  IF(SHKDIR.E9.3)  THEN 
C 

C  SHOCK  LOCATION  RELATIVE  TO  THE  CONTACT  SURFACE  FOR  A  SHOCK 

C  HEADED  TO  THE  LEFT  DETERMINES  THE  CORRECT  VALUES  FOR  W  AND  VS— 

C 

IF(SIGMA(1,1).GT.SIGMA(2,1))  THEN 
GO  TO  111 

THEN 


15 


ELSE 

;  IF(SIGMA(1,1).EQ.(X2(1)-H)) 

X2(l)  =  X2(l)  - 

H 

12(1)  =  12(1)  - 

1 

X2(2)  3  X2(2)  - 

H 

12(2)  =  12(2)  - 

1 

END 

IF 

RRA 

=RR(I2(1)-1) 

RRB=RR(I2(1)) 
QQA=qQ(I2(l)-l) 
(3QB=QQ(I2(1)  J 
SA=S(I2(1)-1) 

QA  =(QQA+RRA)/2.D00 

QB  =(QQB+RRB  1/2.000 

AA  =(QQA-RRA)/( 2.D00»SA) 

DQ  =(QB-QA)/AA 

W  =  DSQRT(  (DQ»J»2)*(0.36D00)*1.D00)  -  (DQ*0.6D00) 

DQ  =( -1.000  )*DQ 

GO  TO  110 
C 

C  FOR  SHOCK  HEADED  RIGHT  THE  SAME  PROCEDURE  FOR  CORRECTIONS  ARE— - 

C FOLLOWED 

C 

ELSE  IF(SIGMA(1,1).LT.SIGMA(2,1))  THEN 

GO  TO  111 
ELSE 
17  RRA=RR(I2(1)-1) 

RRB=RR(I2(1)) 

QQA=QQ(I2(1)-1) 

QQ8=QQ1I2( 1  )  ) 

SB=SII2(1)  ) 

QA  =(QQA*RRA)/2.D00 

QB  =(qqB4RRB)/2.D00 
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AB  =(QQB-RRB)/(2.D00«SB) 

DQ  =(QA-QB)/AB 

W  =  DSQRT((DQ»K2)»(  0.36300)4^1.000)  -r  lDq«0.6D00) 

GO  TO  110 
ENO  IF 
C 

C  WITH  NO  SHOCK/CONTACT  SURFACE  INTERACTION  THE  JUMP  IN  REIMAN 

C  VARIABLES  ARE  DETERMINED  WITHOUT  INTERPOLATION  OVER  THE  

C  INTERVAL.  MREIKN  IS  THE  MEASURED  JUMP.  EREIMN  IS  THE  ANALYTICAL— 

C VALUE 

C 

20 


21 


RRA=RR(I2(1)-1) 

RRB=RR1I2(1) 1 

QQA=QQ(I2(1)-1) 

QQB=QQ(I2(1)) 

SA=S(I2(1)-1) 

SB=S(I2ll)) 

AB=( QQB-RRB  )/( 2 . D00»SB ) 

AA=(QQA-RRA)/(2 

.0005«SA) 

IF(SHKDIR.Eg.5) 

THEN 

MREIMN  = 

:  (RRB-RRA)/AA 

DREMN  = 

DABS( MREIMN) 

ELSE 

MREIMN  = 

1  (QQA-QQBJ/AB 

DREMN  = 

MREIMN 

END  IF 
C 

C  ITERATE  FOR  PROPER  VALUE  OF  W  USING  THE  QUADRATIC  FIT  OF  THE 

C  REIMAN  VARIABLE  CHANGE  WITH  W  CURVE.   NOTE  LEFT  MOVING  SHOCKS 

C ARE  USED  IN  THESE  EQUATIONS  SINCE  RRB-RRA/AA=-( QQA-QQB/AB  ) 

C 

100  WW=  (3.0396408D01-((DREMN*2.757<>D00)/0.286337D00)) 
W=5.513294D00-0SQRT(WW) 
DQ=2.D00»IW»W-1.D00  )/(  W»*(  G+l.DOO  ) ) 

AR=0SQRT( 2.000*(G-1.000  )*( l.D00  +  ( I G-1.000 )*W*W/2.D00 ) )* 
C        I  G*G2*W»*W-1.D00  )  )/(  (G+1.000  l**W  ) 
PR=(2.D00*G/1G+1.D00  1  )hW»H-( 1 G-1 .000  )/( G+l.DOO ) ) 
DR=( (G-l.DOO  )*W»W+2.D00  l/( (G+l.DOO )»W*W ) 
EREIMN=OQ+( AR-1 . DOO  )*62-( AR»G1/G  )*0LOG( PR»f  DRw*G  ) ) 
IF  (DABS1EREIMN-DABS( MREIMN )).LT.0.1D-51  GO  TO  110 
DREMN  =  (DABSl MREIMN)  -  EREIMN)  +  DREMN 
GOTO  100 
C 

C  SHOCK  VELOCITY  DEPENDS  ON  DIRECTION  SHOCK  IS  TRAVELING  

C  LEFT  IS  <  0,  AND  RIGHT  IS  >  0  

C 

110  IF  (J.EQ.l)  THEN 

TIME  =  O.DOO 

SAl  =  (Gl/GU«DLOG((2.D00»G»!W»»2)-G+l.D00)/(G+l.D00)) 
SA2  =  Gl^OLOG! ( (G-l.DOO  )»(W»*2  )+2)/( (G+1. DOO )»(W»»2) )) 
IF(SHKDIR.EQ.2)  THEN 

SAP  =  SB  -  SAl  -  SA2 
SBP  =  SAP 
ELSE 

SBP  =  SA  -  SAl  -  SA2 
SAP  =  SBP 
END  IF 
103      IF(SHKDIR.EQ.2)  THEN 

CSRMN  =( ( DEXP( ( SBP-SA  )/G2  ) )«( SA )-( SBP )  )»AR 
ELSE 

CSRMN  =( ( OEXP( ( SAP-SB )/G2 ) )»( SB )-( SAP ) )»AR 
ENO  IF 
IF(SHKDIR.EQ.3)  THEN 

MREIMN  =( (RRB-RRA)/AA)+CSRMN 
DREMN  =  DABS( MREIMN) 
ELSE 

MREIMN  =( (QQA-QQB)/AB)-CSRMN 
DREMN  =  MREIMN 
END  IF 
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101  HW=(  3 .  0396403D01-(  (  DRE;1N*2  .  757<»D00  )/0 .  286337D00  ) ) 

W=5.51329<»000-DS5RT(  WW ) 
DQ=2 . D00»( W»W-1 . 000 )/( W^l 6+1 . 000 ) ) 

AR=DSQRT( 2 . D00*( G-1 . 000  l*( 1 . D00*( ( G-1 . DOO )»W»W/2 . DOO ) )» 
C  ( G»G2»W»W-1 . DOO  ) )/( ( 6*1 . DOO )*W ) 

PR=( 2 . DOO*G/( G+1 . DOO ) )»WxH-( ( G-1 . DOO )/(  G+1 . DOO ) ) 
DR=C  ( G-1 .  DOO  )»W»W+2 .  DOO  )/(  (  G*l .  DOO  ))>W»H  ) 
EREIMN=OQ+(  AR-1 .  DOO  )i<G2-(  ARwGl/G  )»DLOG(  PR«(  DR»»G  ) ) 
IF  (DABS(EREIMN-DABS(MREIMN)).LT.0.1D-5)  GO  TO  102  " 
DREMN  =  (DABS(MREIMN)  -  EREIMN)  ♦  DREMN 
GOTO  101 

102  SAl  =  (G1/G)«DL0G(  (2.D00*G»(W**2)-G4.1.D00)/(6+l.D00)) 

SA2  =  Gl)*0L0Gn  (G-1.000  )JKH*^*2)  +  2)/(  (G+1.000  )*tW)**2)  )) 
IF(SHK0IR.EQ.2)  THEN 

SAP  =  SB  -  SAl  -  SA2 
ELSE 

SBP  =  SA  -  SAl  -  SA2 
END  IF 

IF  (OABS(SAP-SBP).LT. 0.10-5)  GO  TO  105 
IF(SHKDIR.Eq.2)  THEN 

SBP  =  (SAP -SBP)  ♦  SBP 
ELSE 

SAP  =  (SBP-SAP)  ♦  SAP 
END  IF 
GO  TO  103 
END  IF 
105  IF(SHKDIR.EQ.3)  THEN 

DQ  =  (-l.DOO)*DQ 

VS  =  ((RRA4^QQA)«0.5D00)  -  ( W»AA ) 
ELSE 

VS=( QQB+RRB  )»0 . 5D00+W»AB 
END  IF 

TS=H/0ABS( VS ) 
111  IF  (TS.LT.DELT)  THEN 
DELT=0.99D00*TS 
END  IF 

SIGMA(1,2)=VS»DELT+SIGMA(1,1) 
C 

C  ♦♦♦♦♦♦DETERMINE  CONTACT  SURFACE  SPEED^^^^^^^^^ 
C 

IF(J.EQ.l)  THEN 

CSDIR  =  SHKDIR 
END  IF 
C 

C  CONTACT  SURFACE  TRAVELING  RIGHT  

C 

150  IF(CSDIR.Eg.2)  THEN 
C 

C  CONTACT  SURFACE  MOVING  RIGHT,  CHECK  FOR  SHOCK  IN  INTERVAL 

C  AND  CALCULATE  SPEED  OF  CONTACT  SURFACE  AS  APPROPRIATE 

C 

IF(J.Eq.l)  THEN 

QB  =(QqB^RRB)/2.D00 
QA  =  DQ^AB  ♦  QB 

CALL  SKJUMP(AB,QB,SB,AR,Dq>VS,G,Gl,W,AA,QA,SA) 
Q  =  qA 
GO  TO  200 
END  IF 
IF(X2(2).Eq.X2(l))  THEN 

IF(SIGMA(2,1).LE.SIGMA(1,1))  THEN 

q  =  (Qq(I2(2)-l)  ♦  RR(I2(2)-1))  /  2.000 
ELSE 

Q  =(qq(I2(2))  ♦  RR(I2(2)))  /  2. DOO 
END  IF 


ELSE 


END  IF 


QA  =  (QQ(I2(2)-1)  ♦  RR«I2(2)-1))  /  2.000 
QB  =  (Qq(I2l2))  ♦  RR(I2(2)))  /  2.000 
g  =  (QA  ♦  qB)/2.D00 
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ELSE  IF(CSDIR.EQ.3)  THEN 
C 
C  CONTACT  SURFACE  TRAVELING  LEFT  

C 

IF(J.EQ.l)  THEN 

QA  =(QQA-t-RRA)/2.D00 
QB  =  DQ»AA  *   QA 

CALL  SKJUHP(AA,QA,SA,AR,Dg,VS,G,Gl,W,AB,QB,SB) 
Q  =  QB 
GO  TO  ZOO 
END  IF 
IF(X2(2).EQ.X2(1))  THEN 

IF(SIGMA(2,1).GE.SI6MA(1,1))  THEN 

Q  =  (QQII2(2))  ♦  RR(I2(2)))  /  2. DOG 
ELSE 

Q  =  (QQ(I2(2)-1)  +  RR(I2(2)-1))  /  2.D00 
END  IF 
ELSE  IF(SIGMA(2,1).EQ.(X2(2)-H))  THEN 
X2(2)  =  X2(2)  -  H 
12(2)  =  12(2)  -  1 

Q  =  (QQ(I2(2))*RR(I2(2)))  /  2.D00 
ELSE 

QA  s  (QQ(I2(2)-1)  *    RR(I2(2)-1))  /  2.D00 
QB  =  (Qq(I2(2))  ♦  RR(I2(2)))  /  2. DOG 
Q  =  (QA  ••■  QB)/2.D00 
END  IF 
END  IF 
200  SIGMA(2,2)  =  DELT  K  Q  -f  SIGMA(2,1) 
QCS=Q 
C 

C  CALCULATE  EXPANSION  WAVE  SPEED  

C 

TIME  =  TIME+OELT 
IF(J.EQ.3  )  THEN 

AW=(gQl (N*l)/2)-RR( (N+l)/2))/(2.D00»S( (N+l)/2)) 
QW=g 

IF( (CS0IR).EQ.2)  THEN 
VHEW=-(AW) 
VTEH=  QW-AW 


ELSE 


VHEW=  AM 
VTEW=  QW+AH 


END  IF 
END  IF 
IF(J.EQ.3)  THEN 

SIGMA(3,2)  =  SIGMA(3,I)  ♦  VHEW»TIME 
SIGMA('+,2)  =  SIGMA(<*,1)  +  VTEW*TIME 
ELSE  IF((CS0IR.EQ.2).AND.(SIGMA(3,1).GT.0.000))  THEN 
SIGMA(3,2)  =  SIGMA(3,1)  ♦  VHEH»DELT 
SIGMA(<f,2)  =  SIGMA(<+,1)  ♦  VTEW*DELT 
ELSE  IF(  (CSDIR.EQ.3).AND.ISIGMA(3,1).GT.1.D00))  THEN 
SIGMA(3,2)  =  SIGMA(3,1)  ♦  VHEW»DELT 
SIGMA('+,2)  =  SIGMA(^,1)  ♦  VTEW^DELT 
END  IF 
RETURN 
END 
C 

SUBROUTINE  SHEEP( N.H.SIGMA, QQ,RR,S, DELT ,EE ,Q, A, NEWQQ.NEWRR, NEWS, 
CI2,G2,J,LNODE,RNODE,HALT,LBNDRY,LBDPRS,LBDPR,LBDTR,LBD0R,QLBD,G, 
CG1,RBN0RY,RB0PRS,RBDPR,RB0TR,RB0DR,QR60,BDRY,SK) 
C 

C  »  M 

C     »        SPACE   SWEEPING  SUBROUTINE  » 

C  *  * 

C 

C     VARIABLE   DEFINITIONS  

C 
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C     AAVG  -  AVERAGE  SPEED  OF  SOUND 

C     CNTACT  -  5  DIGIT  VARIABLE  DEhKDTING  CONTACT  SURFACE 

C  LOCATION, DIRECTION  OF  TRAVEL,  AND  IF  IT  CROSSES  A  NODE 

C      DELQQH  -  CHANGS  IN  QQ  FROM  I  TO  I+l 

C     DELQQL  -  CHANGE  IN  OQ  FROM  I-l  TO  I 

C      DELRRH  -  CHANGE  IN  RR  FROM  1  TO  1*1 

C     DELRRL  -  CHANGE  IN  RR  FROM  I-l  TO  I 

C     DELSH   -  CHANGE  IN  S  FROM  I  TO  I+l 

C     DELSL   -  CHANGE  IN  S  FROM  I-l  TO  I 

C      DELAH   -  CHANGE  IN  A  FROM  I  TO  I+l 

C     DELAL   -  CHANGE  IN  A  FROM  I-l  TO  I 

C      DELQH   -  CHANGE  IN  Q  FROM  I  TP  I+l 

C      DELQL   -  CHANGE  IN  Q  FROM  I-l  TO  I 

C      DELX    -  INTERPOLATION  DISTANCE  (LMD»OELT) 

C      OLTA»»  -  PREFIX  WHICH  INDICATES  THE  SPATIAL 

C  CHANGE  IN  »*  FOR  ONE  TIME  STEP. 

C      INTEG(K)-  RESULT  OF  INTEGRATING  Z(K) 

C     JHUNT   -  VALUE  OF  »*   INTERPOLATED  BETWEEN  NODES 

C  ON  THE  CURRENT  TIME  LEVEL. 

C      LXX  -  NODE  DEFINING  THE  LEFT  INTERVAL 

C     »PRIM(K)-  SUFFIX  WHICH  INDICATES  THE  SPATIAL 

C  DERIVITIVE  OF  »  AT  THE  CURRENT  TIME  LEVEL. 

C      RXX  -  NODE  DEFINING  THE  RIGHT  INTERVAL 

C     SAVG  -  AVERAGE  ENTROPY 

C     SHOCK  -  3  DIGIT  VARIABLE  DENOTING  SHOCK 

C  LOCATION, DIRECTION  OF  TRAVEL,  AND  IF  IT  CROSSES  A  NODE 

C     »«STEP  -  THE  CHANGE  IN  TIME  OF  »»  AT  A  NODE 

C  USED  TO  STEP  UP  TO  THE  NEXT  TIME  LEVEL 

C     X       -  LOCATION  IN  SPACIAL  PLANE  (I-1)»H 

C      Z(K)    -  RIGHT  SIDE  OF  THE  K'TH  EQUATION. 

C 

INTEGER  I , RXX , LXX , SHOCK ,CNTACT ,12 , J ,LNODE ,RNODE .HALT , 
C        N,LBNDRY,LBOPRS,RBNDRY,RBDPRS,SK,BDRY 

DIMENSION  SIGMA(  <♦  ,2  )  ,S(  N  )  ,Q(  N  )  ,Al  N  )  ,121  <♦  )  ,QINT(  3  )  ,AINTI  3  )  ,2(  3  1 , 
C  NEWQQI  N ) ,NEWRR( N ) ,NEWSI N ) ,INTEG( 3  )  ,APRIMl 3  1  ,QPRIMl 3  I , 

C  LNODE(  <^  )  ,RNO0E(  <i  )  ,AAVG(  3  )  ,RR(  N  )  ,QQ(  N  ) 

DOUBLE  PRECISION  AAVG, SAVG, G2,X,H, SIGMA, QQ,RR,S,Q, A, G,G1, 
C  DELQQH, DELQQL, DELRRH, DELRRL, OELSH, DELSL, 

C  DELAH, DELAL, DELQH, DELQL, DELT, 

C  QINT,AINT,QQINT,RRINT,SINT,EE, 

C  NEWQQ  ,NE WRR ,NE WS , LBDPR , LBOTR , LBDOR .QLBD , 

C  RRSTEP  ,SSTEP  .INTEG.Z  .DLTAQQ  ,i3QSTEP  , 

C  DLTARR,DLTAS,APRIM,QPRIM, 

C  RBDPR,RBDTR,RBODR,QRBD 

COMMON  AR,DQ,VS,W 
C 

C  COMPUTE  VELOCITY  AND  SPEED  OF  SOUND  AT  EACH  NODE  

C 

DO  10  1=  1,N 

Q(I)  =  (QQ(I)  +  RR(I))  /  2.0D00 
Ad)  =  ((QQ(I)  -  RR(I))  /(2.0D00  »  S(  I ) ) ) 
10  CONTINUE 
C 

C  ADVANCE  LEFT  BOUNDARY  TO  NEW  TIME  STEP  

C 

BDRY  =  3 
IF(I2(1).EQ.2)  THEN 

SK  =  1 
ELSE  IF(SIGMA(l,2).Eq.-2.D00)  THEN 

SK  =  3 
ELSE 

SK  =  0 
END  IF 

CALL  BONDRYC  Q(  1 )  ,q(  2  )  .QLBD  ,A(  1 )  ,  A(  2  )  ,Qq(  1 )  ,Qq(  2  )  ,RR(  1 )  ,RR(  2  ) , 
C  S(  H ,S(  2 ) ,H , EE ,DELT , LBNDRY , LBDPRS , LBDPR , LBDDR , LBDTR , 

C  J,NEWQQ(l),NEWRR(l),NEWSt 1  I  ,G,G1 ,G2 .HALT ,80RY ,SK ) 

C 

C  AT  EACH  NODE  FROM  2  TO  N-1  DETERMINE  THE  BEST  ALGORITHM  TO  USE— 

C  TO  ADVANCE  THAT  NODE  TO  THE  NEXT  TIME  STEP  
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1=2 

11  IFd.EQ.Nl  GO  TO  1200 

X=FLOAT(I-l)«H 

DELQQH  =  QQd-fll  -  QQ(  I) 

DELQQL  =  QQII)  -  QQ(I-l) 

DELRRH  =  RR(I*1)  -  RR(I ) 

DELRRL  =  RR(I)  -  RR(I-l) 

DELSH  =  S(I*1)  -  SCI 

OELSL  =  S(I)  -  S(I-1 

DELAH  =  A(I*1)  -  A(I 

DELAL  =  A(I)  -  A(I-1 

DELQH  =  Q(I  +  H  -  Q(I 

OELQL  =  Q(I  )  -  Q(I-1 
C 

C  DEFINE  LEFT  SECTOR  AND  RIGHT  SECTOR  HRT  NODE  EXAMINED- 

C 

RXX  =  I  ♦  1 
LXX  »  I 

c 

C TEST  FOR  SHOCK 

C 

IF  (12(1). EQ. RXX)  THEN 
SHOCK  =  200 
GO  TO  20 
ELSE  IF  (I2(1).EQ.LXX)  THEN 
SHOCK  =  300 
60  TO  20 
ELSE 

SHOCK  =  100 
END  IF 
GO  TO  30 
C 

C  DETERMINE  DIRECTION  SHOCK  IS  TRAVELING  

C 

20   IF  (SIGMA(1,1).LT.SIGMA(1,2))  THEN 
SHOCK  =  SHOCK  *    20 
ELSE 

SHOCK  =  SHOCK  ♦  30 
END  IF 


c 

■ 

C 

C 

—  DETERMINE  IF  SHOCK  CROSSES  A  NODE  IN  TH' 

IF  ( SHOCK. EQ. 220)  THEN 

.  IF  (SIGMAI1,2).GE.(X+H))  THEN 

SHOCK  =  SHOCK  +  1 

ELSE 

SHOCK  =  SHOCK  ♦  2 

END  IF 

ELSE 

IF  ( SHOCK. EQ. 230)  THEN 

IF  (SIGMA(1,2).LE.X)  THEN 

SHOCK  =  SHOCK  +  1 
ELSE 

SHOCK  =  SHOCK  +  2 
END  IF 

ELSE 

IF  ( SHOCK. EQ. 320)  THEN 

IF  (SIGMA(1,2).GE.X)  THEN 

SHOCK  =  SHOCK  +  1 
ELSE 

SHOCK  =  SHOCK  ♦  2 
END  IF 

ELSE 

IF  ( SHOCK. EQ. 330)  THEN 

IF  (SIGMA(1,2).LE.(X-H))  THEN 

SHOCK  =  SHOCK  ♦  1 
ELSE 

SHOCK  =  SHOCK  ♦  2 
END  IF 

END 

EF 
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C  TEST  FOR  CONTACT  SURFACE  

C 

50  IF  <I2(2).EQ.RXX)  THEN 
CNTACT  =  200 
GO  TO  40 
ELSE  IF  (I2(2).EQ.LXX)  THEN 
CNTACT  =  300 
GO  TO  40 
ELSE 

CNTACT  =  100 
END  IF 
GO  TO  50 
C 

C  DETERMINE  DIRECTION  CONTACT  SURFACE  IS  TRAVELING  

C 

40   IF  (SIGMA(2,1).LT.SIGMA(2,2))  THEN 
CNTACT  =  CNTACT  ♦  20 
ELSE 

CNTACT  a  CNTACT  ♦  30 
END  IF 
C 

C  DETERMINE  IF  CONTACT  SURFACE  CROSSES  A  NODE  DURING  THIS  TIME  — 

C  INTERVAL  

C 

IF  ( CNTACT. EQ. 220)  THEN 

IF  (SIGMA(2,2).GE.(X+H))  THEN 

CNTACT  =  CNTACT  ♦  1 
ELSE 

CNTACT  =  CNTACT  ♦  2 
END  IF 
ELSE  IF  (CNTACT.Eq.230)  THEN 

IF  (SIGMA(2,2).LE.X)  THEN 

CNTACT  =  CNTACT  ♦  1 
ELSE 

CNTACT  =  CNTACT  ♦  2 
END  IF 
ELSE  IF  (CNTACT.EQ.320)  THEN 

IF  (SIGMA(2,2).GE.X)  THEN 

CNTACT  =  CNTACT  ■»•  I 
ELSE 

CNTACT  =  CNTACT  +  2 
END  IF 
ELSE  IF  ( CNTACT. EQ. 330)  THEN 

IF  (SIGMA(2,2).LE.IX-H))  THEN 

CNTACT  =  CNTACT  +  1 
ELSE 

CNTACT  =  CNTACT  +  2 
END  IF 
END  IF 
C 

C CHECK  IF  EITHER  A  SHOCK  OR  CONTACT  SURFACE  WITHIN  H  OF  THIS  NODE™ 

C  DETERMINE  PROPER  ALGORITHM  TO  USE  FOR  CALCULATING  EXTENDED  REIMAN— 

C  —VARIABLE  CHANGE  ALONG  CHARACTERISTICS  AT  THIS  NODE 

C 

50  IF  (SHOCK.EQ.IOO.OR.CNTACT.EQ.IOO)  THEN 
C 

C NEITHER  A  SHOCK  NOR  A  CONTACT  SURFACE  EXIST  NEAR  NODE  — 

C 

IF  ( SHOCK. EQ. 100. AND. CNT ACT. EQ. 100)  THEN 
C 

C  TEST  FOR  SUBSONIC  OR  SUPERSONIC  FLOW 

C 

IF  (DABS(Q(I)).LT.A(I))  THEN 

IF(I.EQ.lI2(l)-2) )  THEN 
IF(J.EQ.l)  THEN 

IF( SIGMAl 1,1). LE .SIGMA!  1,2))  THEN 

GO  TO  200 
END  IF 
END  IF 
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END  IF 

IF(I.EQ.ri2(lHl))  THEN 
IF(J.EQ.l)  THEN 

1F(SIGMA(1,1).GE.SIGMAC1,2))  THEN 

GO  TO  300 
END  IF 
END  IF 
END  IF 
GO  TO  100 


ELSE 


IF  (SIGMA(2,1).LE.SIGMA(2,2))  THEN 

GO  TO  200 
ELSE 

GO  TO  300 
END  IF 
END  IF 
END  IF 
C 

C  —SHOCK  OR  CONTACT  SURFACE  ON  LEFT,  HEADED  RIGHT*  NO  NODES  CROSSED— 
C 

IF  (SHOCK. EQ, 322. OR. CNTACT.EQ. 322)  THEN 
IF  (DABS(Q(I  )).LT.A(I))  THEN 

GO  TO  300 
ELSE 

GO  TO  500 
END  IF 
END  IF 
C 

C  —SHOCK  OR  CONTACT  SURFACE  ON  LEFT,  HEADED  LEFT,  NO  NODES  CROSSED— 
C 

IF  (SHOCK. EQ. 332. OR. CNTACT.EQ. 332)  THEN 

GO  TO  300 
END  IF 
C 

C  —SHOCK  OR  CONTACT  SURFACE  ON  LEFT,  HEADED  RIGHT,  NODE  IS  CROSSED— 
C 

IF  (  SHOCK. EQ. 321. OR. CNTACT.EQ. 321)  THEN 

GO  TO  *00 
END  IF 
C 

C SHOCK  OR  CONTACT  SURFACE  ON  LEFT,  HEADED  LEFT,  NODE  IS  CROSSED— 

C 

IF  ( SHOCK. EQ. 331. OR. CNTACT.EQ. 331)  THEN 

GO  TO  300 
END  IF 
C 

C  —SHOCK  OR  CONTACT  SURFACE  ON  RIGHT,  HEADED  RIGHT,  NO  NODES  CROSSED— 
C 

IF  ( SHOCK. EQ. 222. OR. CNTACT.EQ. 222)  THEN 

GO  TO  200 
END  IF 
C 

C  —SHOCK  OR  CONTACT  SURFACE  ON  RIGHT,  HEADED  LEFT,  NO  NODES  CROSSED— 
C 

IF  ( SHOCK. EQ. 232. OR. CNTACT.EQ. 232)  THEN 
IF  (DABS(Q(I)  ).LT.A(I))  THEN 

GO  TO  200 
ELSE 

GO  TO  500 
END  IF 
END  IF 
C 

C  —SHOCK  OR  CONTACT  SURFACE  ON  RIGHT,  HEADED  RIGHT,  NODE  CROSSED— 
C 

IF  ( SHOCK. EQ. 221. OR. CNTACT.EQ. 221)  THEN 

GO  TO  200 
END  IF 
C 
C  —SHOCK  OR  CONTACT  SURFACE  ON  RIGHT,  HEADED  LEFT,  JUMPS  NODE-— 
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GO  TO  400 
END  IF 
C 

C  BRANCH  HERE  IF  SHOCK  TO  RIGHT  OF  CONTACT  SURFACE 

C  DETERMINE  PROPER  ALGORITHM  TO  USE  FOR  CALCULATING  EXTENDED  REIMAN- 

C  VARIABLE  CHANGE  ALONG  CHARACTERISTICS  AT  THIS  NODE 

C 

IF  (SIGMA(1,1).6T.SIGMA(2,1))  THEN 
C 

C SHOCK  ON  LEFT,  HEADED  RIGHT,  NO  NODE  JUMPED™ 

C 

IF  ( SHOCK. EQ. 222)  THEN 

IF  (CNTACT.EQ.322)  THEN 

IF  IDABS(Q(I)).LT.A(I))  THEN 

GO  TO  300 
ELSE 

GO  TO  500 
END  IF 
ELSE  IF  (CNTACT.Eq.332)  THEN 

GO  TO  800 
ELSE  IF  (CNTACT.EQ.331)  THEN 

GO  TO  300 
ELSE 

GO  TO  900 
END  IF 
END  IF 
C 

C SHOCK  ON  LEFT,  HEADED  LEFT,  NO  NODE  JUMPED— 

C 

IF  ( SHOCK. EQ. 332)  THEN 

IF  (CNTACT.EQ.322)  THEN 

GO  TO  300 
ELSE  IF  (CNTACT.EQ.332)  THEN 

GO  TO  600 
ELSE  IF  (CNTACT.EQ.331)  THEN 

GO  TO  600 
ELSE  IF  (CNTACT.EQ.321)  THEN 

GO  TO  700 
ELSE 

GO  TO  900 
END  IF 
END  IF 
C 

C SHOCK  ON  LEFT,  HEADED  RIGHT,  JUMPS  NODE™ 

C 

IF  ( SHOCK. EQ. 321)  THEN 

IF  (CNTACT.EQ.322. OR. CNTACT.EQ.321)  THEN 

GO  TO  400 
ELSE  IF  I CNTACT.EQ.332. OR. CNTACT.EQ.331)  THEN 

GO  TO  800 
ELSE 

GO  TO  900 
END  IF 
END  IF 
C 

C SHOCK  ON  LEFT,  HEADED  LEFT,  JUMPS  NODE— - 

C 

IF  ( SHOCK. EQ. 331).  THEN 

IF  (CNTACT.EQ.322. OR. CNTACT.EQ.321)  THEN 

GO  TO  700 
ELSE  IF  I CNTACT.EQ.332. OR. CNTACT.EQ.331)  THEN 

GO  TO  600 
ELSE 

GO  TO  900 
END  IF 
END  IF 
C 
C SHOCK  ON  RIGHT,  HEADED  RIGHT,  NO  NODE  JUMPED— 
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IF  ( SHOCK. EQ. 222 »  THEN 

IF  (CNTACT.E(3.222)  THEN 

GO  TO  200 
ELSE  IF  (CKTACT.EQ.232.0R.CNTACT.EQ.231)  THEN 

GO  TO  600 
ELSE  IF  (CNTACT.EQ.321.0R.CNTACT.EQ.322)  THEN 

GO  TO  ^00 
ELSE  IF  (CNTACT.Eq.332.0R.CNTACT.EQ.S31)  THEN 

GO  TO  800 
ELSE 

GO  TO  900 
END  IF 
END  IF 
C 

C  —SHOCK  ON  RIGHT,  HEADED  LEFT,  NO  NODE  JUMPED— 
C 

IF  ( SHOCK. EQ. 232)  THEN 

IF  (CNTACT.EQ.222)  THEN 

IF  (SIGMA(1,2).LT.SIGMA(2,2))  THEN 

GO  TO  700 
ELSE 

GO  TO  200 
END  IF 
ELSE  IF  (CNTACT.EQ.231.0R.CNTACT.EQ.232)  THEN 

GO  TO  600 
ELSE  IF  (CNTACT.EQ.221)  THEN 

GO  TO  700 
ELSE  IF  (CNTACT.EQ.322)  THEN 

GO  TO  "+00 
ELSE  IF  (CNTACT.EQ.332.0R.CNTACT.EQ.331)  THEN 

GO  TO  600 
ELSE  IF  (SIGMA(1,2).LT.SIGMA(2,2))  THEN 

GO  TO  710 
ELSE 

GO  TO  400 
END  IF 
END  IF 
C 

C  —SHOCK  ON  RIGHT,  HEADED  RIGHT,  JUMPS  NODE  — 
C 

IF  ( SHOCK. EQ. 221)  THEN 

IF  (CNTACT.EQ.221. OR. CNTACT.EQ.222)  THEN 

GO  TO  200 
ELSE  IF  (CNTACT.EQ.231.0R.CNTACT.EQ.232)  THEN 

GO  TO  800 
ELSE  IF  (CNTACT.Eq.321.OR.CNTACT.Eq.322)  THEN 

GO  TO  <»00 
ELSE 

GO  TO  300 
END  IF 
END  IF 
C 

C SHOCK  ON  RIGHT,  HEADED  LEFT,  JUMPS  NODE  — - 

C 

IF  (CNTACT.EQ. 221. OR. CNTACT.EQ.222)  THEN 

GO  TO  700 
ELSE  IF  1 CNTACT.EQ. 231. OR. CNTACT.EQ. 232)  THEN 

GO  TO  600 
ELSE  IF  (CNTACT.EQ.322)  THEN 

IF  (SIGMA(1,2).LT.SIGMA(2,2))  THEN 

GO  TO  710 
ELSE 

GO  TO  -^OO 
END  IF 
ELSE  IF  1 CNTACT.EQ. 321)  THEN 

GO  TO  710 
ELSE  IF  (DABS(Q(I)).LT.A(I))  THEN  . 

GO  TO  600 
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ELSE 

GO  TO  800 
ENO  IF 
C 

C  —BRANCH  HERE  IF  SHOCK  IS  TO  LEFT  OF  CO^frACT  SURFACE 

C  —DETERMINE  PROPER  ALGORITHM  TO  USE  FOR  CALCULATING  EXTENDED  REIMAN- 

C  VARIABLE  CHANGE  ALONG  CHARACTERISTICS  AT  THIS  NODE 

C 

ELSE  IF  (SIGMA(1,1).LT.SIGMA(2,1))  THEN 
C 

C SHOCK  ON  LEFT,  HEADED  RIGHT,  NO  NODE  CROSSED— 

C 

IF  ( SHOCK. EQ. 322)  THEN 

IF( CNTACT . £Q . 222 . OR . CNTACT . EQ . 221)  THEN 

60  TO  bOO 
ELSE  IF  ( CNTACT. EQ. 332)  THEN 

IF  (SIGMA(1,2).GT.SIGMA(2,2))  THEN 

60  TO  700 
ELSE 

60  TO  300 
END  IF 
ELSE  IF  ( CNTACT. EQ. 331)  THEN 

GO  TO  700 
ELSE  IF  (CNTACT,Eq.222.0R.CNTACT.EQ.221)  THEN 

GO  TO  600 
ELSE  IF  (CNTACT.EQ.232)  THEN 

GO  TO  '^OO 
ELSE  IF  (SIGMA(1,2).GT.SIGMA(2,2))  THEN 

60  TO  710 
ELSE 

GO  TO  400 
END  IF 
END  IF 
C 

C SHOCK  ON  LEFT,  HEADED  LEFT,  NO  NODE  CROSSED— 

C 

IF  C SHOCK. EQ. 332)  THEN 

IF  ( CNTACT. £Q. 322)  THEN 

GO  TO  800 
ELSE  IF  (CNTACT.Eq.332)  THEN 

GO  TO  300 
ELSE  IF  (CNTACT.EQ.321)  THEN 

GO  TO  300 
ELSE  IF  (CNTACT. £Q. 222. OR. CNTACT. EQ. 221)  THEN 

GO  TO  300 
ELSE  IF  (CNTACT. EQ. 231. OR. CNTACT.EQ.232)  THEN 

GO  TO  <^00 
ELSE 

GO  TO  900 
END  IF 
END  IF 
C 

C  —SHOCK  ON  LEFT,  HEADED  RIGHT,  JUMPS  NODE  — 
C 

IF  ( SHOCK. EQ. 321)  THEN 

IF  ( CNTACT. EQ.322.0R.CNTACT.EQ. 321)  THEN 

GO  TO  600 
ELSE  IF  (CNTACT.EQ.332.0R.CNTACT.EQ.331)  THEN 

GO  TO  710 
ELSE  IF  (CNTACT.EQ.222.0R.CNTACT.EQ.221)  THEN 

60  TO  600 
ELSE  IF  (CNTACT.EQ.231)  THEN 

60  TO  710 
ELSE  IF  (SIGMA(1,2).GT.SIGMA(2,2))  THEN 

GO  TO  710 
ELSE 

GO  TO  '♦OO 
END  IF 
END  IF 
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c 

C SHOCK  ON  LEFT,  HEADED  LEFT,  JUMPS  NODE— 

C 

IF  < SHOCK. EQ. 331)  THEN 

IF  (CNTACT.EQ,322.0R.CNTACT.EQ.321)  THEN 

GO  TO  800 
ELSE  IF  ICNTACT.EQ.331.0R.CNTACT.EQ.332)  THEN 

60  TO  300 
ELSE  IF  (CNTACT.EQ.221.OR.CNTACT.Eq.222)  THEN 

60  TO  SOO 
ELSE 

GO  TO  <»00 
END  IF 
END  IF 
C 

C  SHOCK  ON  RIGHT,  HEADED  RI6HT,  NO  NODE  CROSSED 

C 

IF  ( SHOCK. EQ. 222)  THEN 

IF  (CNTACT.EQ.222.0R.CNTACT.EQ.221)  THEN 

GO  TO  600 
ELSE  IF  (CNTACT.EQ.231)  THEN 

GO  TO  710 
ELSE  IF  (CNTACT.EQ.232)  THEN 

IF  (SIGMA( 1,2  ).GT. SIGMA! 2,2))  THEN 

GO  TO  700 
ELSE 

GO  TO  200 
END  IF 
ELSE 

GO  TO  900 
END  IF 
END  IF 
C 

C  —SHOCK  ON  RIGHT,  HEADED  LEFT,  NO  NODES  CROSSED 

C 

IF  ( SHOCK. EQ. 232)  THEN 

IF  (CNTACT.EQ.222.0R.CNTACT.EQ.221)  THEN 

GO  TO  800 
ELSE  IF  (CNTACT.EQ.232)  THEN 

IF  (DABS(Q(I)).LT.A(I))  THEN 

GO  TO  200 
ELSE 

GO  TO  500 
END  IF 
ELSE 

GO  TO  900 
END  IF 
END  IF 
C 

C  —SHOCK  ON  RIGHT,  HEADED  RIGHT,  JUMPS  NODE 

C 

IF  ( SHOCK. EQ. 221)  THEN 

IF  (CNTACT.EQ.221.0R.CNTACT.EQ.222)  THEN 

GO  TO  600 
ELSE  IF  (CNTACT.EQ.231)  THEN 

60  TO  710 
ELSE  IF  (CNTACT.EQ.232)  THEN 

60  TO  700 
ELSE 

60  TO  900 
END  IF 
END  IF 
C 

C  —SHOCK  ON  RIGHT,  HEADED  LEFT,  JUMPS  NODE  — 
C 

IF  (CNTACT.EQ.221.0R.CNTACT.EQ.222)  THEN 

GO   TO   800 
ELSE    IF    (CNTACT.EQ.231. OR. CNTACT.EQ.232)   THEN 
GO  TO  'too 
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ELSE 

60  TO  900 
END  IF 

C 

C  SHOCK  AND  CONTACT  SURFACE  ARE  AT  THE  SAME  LOCATION  AFTER  TIME 

C ZERO—  ---' 

C 

ELSE  IFl ( SHOCK. EQ. 222). AND. (CMT ACT. EQ. 222 DTHEN 
SHOCK  =321 
CHTACT  =321 
GO  TO  <iOO 
ELSE  IFM  SHOCK . EQ . 322 ) . AND . ( CNTACT . EQ . 322  )  )THEN 
IF(DABSIQ(I)).LT.A(I))  THEN 

GO  TO  200 
ELSE 

GO  TO  500 
END  IF 
ELSE  IF( r SHOCK. EQ. 332). AND. (CNTACT.EQ. 332))  THEN 
SHOCK  =  231 
CNTACT  =  231 
GO  TO  AOO 
ELSE  IF( ( SHOCK. EQ. 232). AND. (CNT ACT. EQ. 232))  THEN 
IF«DABS(Q(I)I.LT.A(I))  THEN 

GO  TO  200 
ELSE 

GO  TO  500 
END  IF 
ELSE 

GO  TO  720 
END  IF 
C 

C CALL  CONDITION  SUBROUTINE  WHICH  CONTAINS  ALGORITHM  THAT  IS— 

C  —NUMERICALLY  BEST  SUITED  FOR  THE  SITUATION  AT  NODE  I  — 
C 

100  CALL  CONDl(q(I),g(I  +  l),A(I),A(I*l),RR(I  ),QQ(I),StI),OELQqL, 
C  DELRRH,0ELSH,OELSL,DELQH,0ELAH>OELQL,OELAL,H,EE, 

C  DELT ,QQINT .RRINT ,SINT ,QPRIM,APRIM,AINT ,Ql I-l )  ,A( I-l ) ) 

GO  TO  1000 
C 

200  CALL  C0ND2(Q(I),q(I-l),A(I),A(I-l),RR(I),QQ(I),S(I),DELQQL, 

C  DELRRL,DELSL,DELQL,DELAL, DELT, H,EE,QQINT, RRINT, SINT, 

C  QPRIM.APRIM.AINT) 

GO  TO  1000 
C 

300  CALL  C0ND3IQ(I),Q(I*l),A(I),A<I*l),RRfI),QQ(I),S(I),DELQQH, 

C  DELRRH,DELSH,DELQH,OELAH, DELT, H,EE,QQINT, RRINT, SINT, 

C  qPRIM,APRIM,AINT) 

GO  TO  1000 
C 

400  CALL  C0ND4(I,SH0CK,CNTACT,J,LN0DE,RNODE.qqSTEP,RRSTEP,SSTEP) 
GO  TO  1100 
C 

500  CALL  C0ND5lQ(I),q(I-l),Q(l4l),A«I),A(I-l),A(I*l),RR(I),QQ<I), 

C  S(I  ),DELqQL,OELQQH,DELRRL,DELRRH,DELSL,DELSH,OELqL, 

C  DELqn .DELAL .OELAH ,H ,EE ,DELT ,QqiNT , RRINT ,SINT ,AINT , 

C  qPRIM.APRIM, SHOCK, CNTACT) 

GO  TO  1000 
C 

600  CALL  C0ND6( SHOCK, CNT ACT, HALT) 
QqSTEP=0.D0 
RRSTEP=0.D0 
SSTEP=0.00 
GO  TO  1100 
C 

700  CALL  CON07(SHOCK,CNTACT,0ELT,SIGMA,I2,I,H,HALT,q(I)) 
QQSTEP=0.00 
RRSTEP=0.DO 
SSTEP=0'.DO 
60  TO  1100 
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c 

710  CALL  COt407N(SHOCK,CNTACT,OELr>SIGMA,I2,I>H,HALTfq(I),X) 
QQSTEP=0.00 
RRSTEP=O.DO 
SSTEP=O.DO 
GO  TO  1100 
C 

720  CALL  C0ND7S( SIGMA, HALT, SHOCK ,CNT ACT) 
aQSTEP=O.DO 
RRSTEP=0.DO 
SSTEP=O.DO 
GO  TO  1100 
C 

800  CALL  C0ND8( SHOCK, CNT ACT, HALT) 
(3QSTEP=0.D0 
RRSTEP=0.DO 
SSTEP=O.DO 
GO  TO  1100 
C 

900  PRItfT  »  ,'AN  IMPOSSIBLE  SITUATION  EXISTS  -  ERROR' 
QQSTEP=0.D0 
RRSTEP=0.D0 
SSTEP=0.D0 
HALT  =  1 
GOTO  1100 
C 

C     CALCULATE  DLTA  QQ.  DLTA  RR  S  OLTA  S 

C 

1000    DLTAQQ=QQINT-QQ(I) 

OLTARR=RRINT-RR(I) 
DLTAS=SINT-S(I  ) 
C 

C       CALCULATE   Z(K)*S  

C 

c 

AAVGI 11  =  1 AINT( 1  )+A( I ) )/2 . 0000 

AAVGI 3  )  =  ( AINT( 3 )*A( I ) )/2 . ODOO 

AAVG(2)=O.0D0O 

SAVG  =  (SINT+S(I)  1/2.000 

2( 1  )  =  -( 1 . 0D00/G2 )*AAVG( 1 )»( SAVG-G2  )»( QPRIM( 1  )-G2»APRIM( 1 ) ) 

2t  3  )  =  ( 1 . 0D00/G2  )»AAVG( 3  )«( SAVG-G2  )«( QPRIM( 3 )*G2»APRIM( 3 ) ) 

ZJ2)=0.0D00 
C 

C        INTEGRATE  THE  Z(K)'S  

C 

INTEG(2)=0.0D00 

INTEG(1)=Z(1)«0ELT 

INTEG(3)=Z(3)J«DELT 
C 

C        SOLVE  THE  EQUATION  

C 

QqSTEP=DLTAQQ+INTEG(  1 ) 

RRSTEP=DLTARR+INTEG( 3 ) 

SSTEP=OLTAS*INTEG( 2 ) 
C 

C       STORE  THE  SOLUTION  

C 

1100    NEWQQ(I)=QQ(I)*QQSTEP 

NEWRRI I )=RR( I )+RRSTEP 

NEWS(I)=S(I)+SSTEP 
C 

C       GO  TO  NEXT  NODE   

C 


1=1+1 
GOTO   11 
1200   CONTINUE 

BDRY    =    2 

IF(I2(1).E(3.N)   THEN 
SK   =   1 
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ELSE  1F(SIGMA11,2).EQ.5.000)  THEN 

SK  =  5 
ELSE 

SK  s  0 
END  IF 

CALL  BONDRYt  Q( N ) ,Q( N-1 ) ,QRBO ,A( N ) ,A( N-1 )  ,QQ( N ) ,QQ( N-1 ) ,RR( N ) > 
C     RR( N-1 )  ,S( N  )  ,S( N-1 )  ,H ,EE ,DELT ,RBNDRY ,RBDPRS ,RBDPR ,RBDDR , 
C      RBDTR , J ,NEHQq( N ) ,NEHRR( N  )  ,NEMS( N  )  ,6 ,G1 >62 ,HALT  >BORY ,SK  ) 
C 

C     UPDATE  THE  VARIABLES   

C 

1=1 
1210  IF  (I.EQ.N+l)  GOTO  1220 
RR(I)=NEWRR(I  ) 
QQ(I)=NEWQQ(I) 
S(I)=NEWS(I) 
1=1*1 
GOTO  1210 
1220  CONTINUE 
RETURN 
END 
C 

C         K  » 

C        »  CONDITION  SUBROUTINES  1-8  « 

C        «  K 

c 

SUBROUTINE    CONDKQI  ,QIP1,A1  ,AIP1  ,RR,QQ,S,DELQqL,DELRRH  ,DELSH, 
C  DELSL,OELQH,DELAH,OELQL,DELAL,H,EE,OELT,QQINT, 

C  RRINT,SINT,QPRIM,APRIM,AINT,QIM1,AIM1) 

C 

C  K  * 

C  »  SUBROUTINE   CONDITION   1  » 

C  *  * 

c 

C USED  WHEN  NO  CONTACT  SURFACES  NOR  SHOCKS  WITHIN  H  OF  NODE 

C AND  FLOW  IS  SUBSONIC 

C  CALCULATES  QQINT ,RRINT ,SINT ,QPRIM,APRIM 

C  USES  FORWARD  AND  BACKWARD  DIFFERENCE  SCHEMES 

C 

c 

C     VARIABLE   DEFINITIONS  

C 

C     AI  -  A(I) 

C     AIMl  -  Ad-D* 

C     AIPl  _  A(I+1) 

C     E(K)    -  ACTUAL  ERROR  IN  CHARACTERISTIC  SLOPE   CALCULATION. 

C     LMD    -  SLOPE  OF  THE  CHARACTERISTICS  IQ+A,Q,Q-A) 

C     QI  -  Q(I) 

C     QIMl  -  Q(I-l) 

C     qiPl  -  Q(I+1) 

C 

DIMENSION  LMD( 3 ) ,DELX(  3 ) ,QINT( 3 ) ,AINT( 3 ) ,E( 3 ) ,QPRIM( 3 ) ,APRIM( 3 ) 

INTEGER  K 

DOUBLE  PRECISION  QI ,QIP1 ,AI , AIPl ,RR ,QQ,S, AIMl , QIMl , 
C  DELQQL,DELRRH,OELSH,DELSL,DELQH,OELAH,DELQL, 

C  DELAL,H,EE,DELT,LMD,OELX,QINT,AINT,E, 

C  QQINT, RRINT,SINT,QPRIM,APRIM 

C 

C   INITIAL  ESTIMATE  OF  CHARACTERISTIC  SLOPES 

C 

LMD(l)  =  QIMl  ♦  AIMl 

LMD(2)  =  QI 

LMD(3)  =  QIPl  -  AIPl 
C 
C   CALCULATE  LINEARLY  INTERPOLATED  VALUES  OF  Q  AND  A 


167 


10  K  s  I 

20  IF  (K.LT.«)  THEN 

DELXIK)  =  DELT  »  LMD(K) 
IF  (LMD(K).LT. 0,0000)  THEN 

Qirn-CK)  =  QI  -  (DELX(K)  »  DELQH  /  H) 
AINT(K)  =  AI  -  (DELXIK)  *   DELAH  /  H) 
ELSE 

QltfTCK)  =  QI  -  (DELX(K)  »   DELQL  /  H) 
AINT(K)  =  AI  -  CDELX(K)  *  DELAL  /  H) 
END  IF 
K  =  K  ♦  1 
GO  TO  20 
END  IF 
C 

C    CALCULATE  ERROR  BETWEEN  ESTIMATED  SLOPE  AND  NEW  SLOPE 

C    FROM  NEW  INTERPOLATED  VALUES 

C 

ECl)  =  DABS(LMD(1)  -  (QINT(l)  ♦  AINT(l))) 
E(2)  =  DABS(LMD(2)  -  (QINT(2))) 
E(3)  =  DABS(LMD(3)  -  (QINT(3)  -  AINT(3))) 
C 

LMD(l)  =  QINTd)  ♦  AINT(l) 
LMD(2)  =  QINTIZ) 
LMD(3)  =  QINT(3)  -  AINT(3) 
C 

C   COMPARE  ERROR  TO  ERROR  TOLERANCE  LEVEL,  ITERATE  TIL  MET 

C 

IF  ((E(1).GT.EE).0R.(E(2).GT.EE).0R.(E(3).GT.EE))  GO  TO  10 
C 

C    CALCULATE  LINEARLY  INTERPOLATED  VALUES  OF  REIMAN 

C    VARIABLES  AND  MODIFIED  ENTROPY  AT  POINT  A 

C 

QQINT  =  QQ  -  (DELX(l)  »  (DELQQL  /  H)) 
IF  (LMD(2).LE.0.0D00)  THEN 

SINT  =  S  -  IDELX(2)  »  (OELSH  /HI) 
ELSE 

SINT  =  S  -  (DELX(2)  «  (OELSL  /  H)) 
END  IF 

RRINT  =  RR  -  (DELX13)  »  (DELRRH  /  H)) 
C 

C  CALCULATE  SPATIAL  DERIVATIVES  -— 

C 

QPRIMIl)  =  (QI-qiMl)/H 
QPRIMI 2  )  =  O.DOO 
QPRIM(3)  =  (QIP1-QI)/H 
APRIM(l)  =  (AI-AIM1)/H 
APRIM(2)  =  O.DOO 
APRIM(3)  =  (AIP1-AI)/H 
RETURN 
END 
C 

SUBROUTINE  C0ND2( QI ,QIM1 ,AI ,AIM1 ,RR ,QQ ,S, DELQQL .DELRRL ,DELSL , 
C  DELQL, DELAL, DELT, H,EE, QQINT, RRINT, SINT, QPRIM, 

C  APRIM,AINT) 

C 

C  *  * 

C        »  SUBROUTINE  CONDITION  2  » 

C        »  » 

C 

C  BACKWARD  DIFFERENCE  ALGORITHM  FOR  CALCULATING  

C  —  RRINT, QQINT, SINT, APRIM,QPRIM,AINT  — 
C 

DIMENSION  LMD(3 ) ,OELX( 3  )  ,QINT( 3  )  ,AINT( 3  )  ,E1 3  )  .QPRIMC 3  )  ,APRIM( 3  ) 

INTEGER  K 

DOUBLE  PRECISION  QI ,QIM1 ,AI ,AIM1 ,RR ,QQ,S, DELQQL ,DELRRL,DELSL> 
C  DELQL, DELAL, DELT, H,EE,AINT,QINT,LMD,DELX,E, 
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C  Q01NT>RRINT,SINT,QPRIM,APRIM 

C 

C    INITIAL  ESTIMATE  CF  CHARACTERISTIC  SLOPES 

C 

LMDll)  =  QIMl  ♦  AIMl 

LMD(2)  =  QI 

LMD(3)  =  QI  -  AI 
C 

C   CALCULATE  LINEARLY  INTERPOLATED  VALUES  OF  Q  AND  A 

C 

10  K  =  1 

20  IF  (K.LT.4)  THEN 

OELX(K)  =  DELT  *   LMD(K1 

QINT(K)  =  QI  -  (DELXIK)  »  OELQL  /  H) 

AINT(K)  =  AI  -  (DELXIK)  *   DELAL  /  H) 

K  =  K  >  1 

GO  TO  20 

END  IF 
C 

C    CALCULATE  ERROR  BETWEEN  ESTIMATED  SLOPE  AND  NEW  SLOPE 

C    FROM  NEW  INTERPOLATED  VALUES 

C 

Ed)  s  DABS(LMD(1)  -  (QINT(l)  ♦  AINT(  1 ) ) ) 

E(2)  =  DABS{LMD(2)  -  QINT(2)) 

E(3)  =  DABS(LMD(3)  -  (QINT(3)  -  AINTC3))) 
C 

LMD(l)  =  QINTCl)  ♦  AINT(l) 

LMD(2)  =  QINT(2) 

LMD(3)  =  QINT(3)  -  AINT(3) 
C 

C    COMPARE  ERROR  TO  ERROR  TOLERANCE  LEVEL,  ITERATE  TIL  MET 

C 

IF  ((E(l).GT.EE).OR.(E(2).GT.EE).OR.lE(3).GT.EE))  GO  TO  10 
C 

C    CALCULATE  LINEARLY  INTERPOLATED  VALUES  OF  REIMAN 

C    VARIABLES  AND  MODIFIED  ENTROPY  AT  POINT  A 

C 

QQINT  =  (3Q  -  IDELX(l)  »  (DELQQL  /  H)) 

SINT  =  S  -  (DELX(2)  »  (DELSL  /  H)) 

RRINT  =  RR  -  (DELX(3)  »  (DELRRL  /  H)) 
C 

C  CALCULATE  SPATIAL  DERIVATIVES  

C 

QPRIM(l)  =  (QI-qiMl)/H 

QPRIM(2)  =  O.DOO 

gPRIM(3)  =  (QI-QIMI)/H 

APRIM(l)  =  (AI-AIM1)/H 

APRIM(2)  =  O.DOO 

APRIM(3)  =  (AI-AIM1)/H 

RETURN 

END 
C 

SUBROUTINE  C0ND3( QI ,QIP1 ,AI , AIPl ,RR ,QQ ,S ,DELQQH ,DELRRH ,DELSH , 
C  DELQH ,OELAH ,DELT ,H ,EE , QQINT , RRINT ,SINT ,QPRIM , 

C  APRIM,AINT) 

C 

c       »  » 

C        »  SUBROUTINE  CONDITION  3  » 

c  »  » 

c 

C  FORWARD  DIFFERENCE  ALGORITHM  FOR  CALCULATING  

C  RRINT, QQINT, SINT, APRIM,QPRIM,AINT  — 

C 

DIMENSION  LMD(  3 ) ,DELX(  3 ) ,QINT( 3 ) ,AINT( 3 ) ,E( 3  )  ,QPRIM( 3  )  ,APRIM( 3  ) 

INTEGER  K 

DOUBLE  PRECISION  QI ,QIP1 ,AI ,AIP1 ,RR,Qq,S, 
C  DELQQH ,DELRRH  ,DELSH , DELQH ,DELAH , 
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DELT,H,EE,A1NT,QINT,LMD,DELX,E, 
QQI?^  ,RRIhfr  ,SINT  ,QPRIM,  APRIM 


-INITIAL  ESTIMATE  OF  CHARACTERISTIC  SLOPES 

LMD(l)  s  QI  4  AI 

LM0(2)  =  QI 

LMD(3)  =  QIPl  -  AIPl 

-CALCULATE  LINEARLY  INTERPOLATED  VALUES  OF  Q  AND  A- 


10  K  =  1 

20  IF  (K,LT.4)  THEN 

DELX(K)  =  DELT  *    LMD(K) 
QINT(K)  =  QI  -  (DELX(K)  »  OELQH  /  H) 
AINT(K)  =  AI  -  (DELX(K)  »  OELAH  /  H) 
K  =  K  ♦  1 
GO  TO  20 
END  IF 


-CALCULATE  ERROR  BETWEEN  ESTIMATED  SLOPE  AND  NEW  SLOPE- 
-FROM  NEW  INTERPOLATED  VALUES 

Ed)  »  DABS(LMD(1)  -  (QINTd)  ♦  AINT(  1 )  ) ) 

E(2)  s  DABS(LMD(2)  -  QINT(2)) 

E(3)  =  DABS{LMD(3)  -  <QINT(3)  -  AINT(3))) 


LMD(l)  =  QINTd)  ♦  AINTd) 

LMD(2)  =  QINT(2) 
/    LMD(3)  =  QINT13)  -  AINT(3) 
C  " 

C    COMPARE  ERROR  TO  ERROR  TOLERANCE  LEVEL,  ITERATE  TIL  MET— 

C 

IF(JEd).GT.EE).OR.(E(2).GT.EE).OR.(E(3).GT.EE))  GO  TO  10 
C 

C    CALCULATE  LINEARLY  INTERPOLATED  VALUES  OF  REIMAN 

C    VARIABLES  AND  MODIFIED  ENTROPY  AT  POINT  A 

C 

QQINT  =  QQ  -  (DELXd)  »  DELQQH  /  H) 

SINT  =  S  -  (DELX(2)  »  DELSH  /  H) 

PRINT  =  RR  -  (0ELX(3)  »  DELRRH  /  H) 


—  CALCULATE  SPATIAL  DERIVATIVES  — 

QPRIMdl  =  (QIP1-QI)/H 
QPRIM(2)  =  O.DOO 
QPRIM(3)  =  (QIP1-QI)/H 
APRIMd)  =  (AIP1-AI)/H 
APRIM( 2)  =  O.DOO 
APRIM(3)  =  (AIP1-AI)/H 
RETURN 
END 

SUBROUTINE  COND'VC I .SHOCK .CNTACT ,J ,LNO0E ,RNODE ,QQSTEP .RRSTEP , 
C  SSTEP ) 

*  » 

»  SUBROUTINE  CONDITION  4  » 

—  A  SITUATION  EXISTS  AT  NODE  I  THAT  WILL  BE  CORRECTED  IN  — 
— -  SUBROUTINE  CORRCT.   *NODE  ARRAYS  ARE  GIVEN  INFORMATION  

—  ON  NODE  LOCATION  AND  SHOCK/CONTACT  SURFACE  PICTURE  

VARIABLE   DEFINITIONS  

CD<iTRK  -  DENOTES  HOW  MANY  NODES  NEED  TO  BE  CORRECTED 
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C  THIS  TIME  STEP 

C 

DIMENSION  LNO0E(4)>RNODE(^) 

imEGER  LNODE  ,RNODE  ,1  .SHOCK  ,CNTACT ,  J ,CD<+TRK 

DOUBLE  PRECISION  QQSTEP,RRSTEP,SSTE? 

C  ASSIGN  FIRST  NODE  ENCOUNTERED  DURING  THE  NEW  TIME  STEP  TO 

C LNODE 

C 


IF(LNODE(«:>KLT.J)  THEN 

CD'+TRK  =  1 

END  IF 

IF(CD'+TRK.EQ.H 

THEN 

LNODE (1) 

=  I 

LNO0E(2) 

=  SHOCK 

LN0DE(3) 

=  CNTACT 

LNODE  (<f) 

=  J 

c 

C IF  A  SECOND  NODE  WITH  CONDITION  <*   IS  ENCOUNTERED  IN  THE 

C  SWEEP,  THIS  NODE  IS  ASSIGNED  TO  RNODE  

C 


ELSE 


END  IF 


RNODE  (1)  =  I 

RN0DE(2)  =  SHOCK 

RN0DE(5)  =  CNTACT 

RN0DE(4)  3  J 


C 

C  LNODE  AND  RNODE  WILL  BE  "JUMPED"  OVER  DURING  SWEEP  THUS 

C  THEIR  »*STEP  VALUES  ARE  SET  TO  0 

C 

QQSTEP  =  O.DOO 
RRSTEP  =  O.DOO 
SSTEP  =  O.DOO 
C 

IF(CD^TRK.EQ.l)  THEN 

CD^TRK  =  CD<tTRK  ♦  1 
ELSE 

CD'+TRK  =  1 
END  IF 
RETURN 
END 
C 

SUBROUTINE  CONDSf  QI ,QIM1 ,qiPl ,AI ,AIM1 ,AIP1 ,RR ,QQ ,S .DELQQL , 
C  DELQQH,DELRRL,DELRRH,DELSL,OELSH,aELQL,OELQH, 

C  DELAL  .DELAH  ,H ,EE  ,DELT ,QQINT ,RRINT ,SINT ,AINT , 

C  QPRIM,APRIM, SHOCK, CNTACT) 

C 

C  »  * 

C        »  SUBROUTINE  CONDITION  5  » 

C  *  * 

c 

C  FOR  SUPERSONIC  FLOW  WITH  A  DISCONTINUITY  ON  ONE  SIDE  OF  THE  NODE- 

C  —  CALCULATES  QQINT.RRINT ,SINT,APRIM,QPRIM,AINT  — 
C 

DIMENSION  LMD(  3 ) ,DELX( 3 ) ,QINT( 3 ) ,AINT( 3 ) ,E( 3  )  ,QPRIM( 3  )  ,APRIM( 3  ) 
INTEGER  K, SHOCK, CNTACT 

DOUBLE  PRECISION  QI ,AI ,RR,QQ,S,QIM1 ,qiPl ,AIM1 ,AIP1 , 
C  EE  ,DELT ,LMD ,DELX,QINT ,AINT ,E ,DELQL ,DELQH ,DELAL , 

C  QQINT ,SINT ,RRINT ,QPRIM ,APRIM ,DELAH ,H , 

C  DELgQL,OELQQH,DELRRL,DELRRH,OELSL,OELSH 

C 

C  DISCONTINUITY  ON  LEFT,  HEADED  RIGHT,  NOT  CROSSING  NODE  — 

C 

IF( (SHOCK. £Q. 322). OR. (CNT ACT. EQ. 322) )  THEN 
C 

C    INITIAL  ESTIMATE  OF  CHARACTERISTIC  SLOPES . 

C 
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LMOri)  s  QI  ♦  AI 

LMDf2)  =  QI 

LMD(3)  =  QIPl  -  AIPl 

■CALCULATE  LINEARLY  INTERPOLATED  VALUES  OF  Q  AND  A- 


10  K  s  1 

20  IF  (K.LT.*)  THEN 

DELX(K)  =  DELT  »  LMD(K) 

QINTCKI  =  QI  -  rDELX(K)  »  OELQH  /  H) 

AINT(K)  =  AI  -  (DELX(K)  »  DELAH  /  H) 

K  =  K  ♦  1 

GO  TO  20 
END  IF 


-CALCULATE  ERROR  BETWEEN  ESTIMATED  SLOPE  AND  NEW  SLOPE- 
-FROM  NEW  INTERPOLATED  VALUES 

Ed)  =  0ABS(LMD(1)  -  (QINT(l)  ♦  AINT(l))) 

E(2)  «  DABS(LMD(2)  -  QINT(2)) 

E(5)  =  0ABS(LMD(3)  -  (QINT(3)  -  AINT(5)n 


LMD(l)  =  QINT(l)  ♦  AINT(l) 

LMD(2)  =  QINT(2) 

LMD(3)  =  QINT(3)  -  AINT(3) 
C 

C    COMPARE  ERROR  TO  ERROR  TOLERANCE  LEVEL,  ITERATE  TO  MEET— 

C 

ZF((E(1).GT.EE).0R.(E(2).GT.EE).0R.(E(3).GT.EE))  GO  TO  10 
C 

C    CALCULATE  LINEARLY  INTERPOLATED  VALUES  OF  REIMAN 

C    VARIABLES  AND  MODIFIED  ENTROPY  AT  POINT  A 

C 

QQINT  =  QQ  -  (DELX(l)  »  OELQQH  /  H) 

SINT  =  S  -  (DELX(2)  *   OELSH  /  H) 

RRINT  =  RR  -  (DELX(3)  »  DELRRH  /  H) 


CALCULATE  SPATIAL  DERIVATIVES  ™ 

QPRIM(l)  =  (QIPl-qi)/H 

QPRIM(2)  =  O.DOO 

QPRIM(3)  =  (QIPl-QIl/H 

APRIM(l)  =  (AIP1-AI)/H 

APRIM( 2)  =  0.000 

APRIM(2)  =  (AIP1-AI)/H 
END  IF 

DISCONTINUITY  ON  RIGHT,  HEADED  LEFT,  NOT  CROSSING  NODE  

IF(  ( SHOCK . EQ . 232 ) . OR .  I  CNTACT . EQ . 232 ) )  THEN 

INITIAL  ESTIMATE  OF  CHARACTERISTIC  SLOPES 


LMD(l)  =  QIMl  ♦  AIMl 
LMD(2)  =  QI 
LMD(3)  =  QI  -  AI 


c 
c 

c 

30 

K  =  1 

'♦O 

IF  (K.LT.'i)  THEN 

OELX(K)  =  OELT  »  LMD(K) 
QINT(K)  =  QI  -  (DELX(K)  »  DELQL  /  H) 
AINT(K)  =  AI  -  (DELX(K)  »  DELAL  /  H) 
K  =  K  +  1 
GO  TO  <+0 
END  IF 

c 

c 

— — 

—CALCULATE  ERROR  BETWEEN  ESTIMATED  SLOPE  AND  NEW  SLOPE 
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•FROM  NEH  IhfTERPOLATEO  VALUES- 


C 
C 

Ed)   B   DABS(LMD(1)    -   (QINT(l)    ♦  AlhfTd))) 

E(2)   s  DABS(LMDC2)   -  QINT(2)) 

E(3)   =  DABS(LMD(5)   -    (<3INT(3)   -  AINT(5))) 
C 

LMD(l)   =  QirfTd)   ♦  AINTd) 

LMD(2)   =  QINT(2) 

LMD(3)   =  QINT(3)   -  AINT(3) 
C 

C   COMPARE  ERROR  TO  ERROR  TOLERANCE  LEVEL,  ITERATE  TO  MEET 

C 

IF  ((Ed.).GT.£E).OR.(E(2).GT.EE).OR.(E(3).GT.EEn  GO  TO  30 
C 

C    CALCULATE  LINEARLY  INTERPOLATED  VALUES  OF  REIMAN 

C    VARIABLES  AND  MODIFIED  ENTROPY  AT  POINT  A 

C 

QQINT  =  QQ  -  (DELXd)  *  (DELQQL  /  H)) 

SINT  =  S  -  (DELX(2)  »  (DELSL  /  H)) 

RRINT  =  RR  -  (DELX(3)  »  (DELRRL  /  H)) 


—  CALCULATE  SPATIAL  DERIVATIVES  — 

QPRIMd)  =  (QI-qiMl)/H 

QPRIM(2)  =  O.DOO 

QPRIM(3)  =  (QI-QIM1)/H 

APRIMd)  =  UI-AIMD/H 

APRIM(2)  =  O.DOO 

APRIM(3)  =  (AI-AIM1)/H 
END  IF 
RETURN 
END 

SUBROUTINE  C0ND6( SHOCK, CNT ACT , HALT  ) 

»  SUBROUTINE  CONDITION  6  « 

X  JV  M  H  X  n  ^^rW  W  W  ^  X  M  K  M  K  K^^  ^^WW^WKM^^^KKWW^^^^^^KKM  AAKWW  W  A  fk  K  M  K^ 


INTEGER  SHOCK, CNT ACT, HALT 


PRINT  * 
PRINT  » 
PRINT  » 
PRINT  * 
PRINT  » 
HALT  =  1 
RETURN 
END 


, 'THE  SITUATION  FOR  CONDITION  6  WITH  THE  CONTACT  SURFACE  ' 

,  "TO  THE  RIGHT  OF  A  SHOCK  BOTH  HEADED  RIGHT  OR  THE 

, 'CONTACT  SURFACE  TO  THE  LEFT  OF  A  SHOCK  BOTH  HEADED  LEFT' 

, 'ADDITIONAL  LOGIC  IS  REQUIRED  TO  PROCEED' 

, 'SHOCK  =', SHOCK,"   CONTACT  SURFACE  =',CNTACT 


SUBROUTINE  C0ND7( SHOCK ,CNTACT ,DELT .SIGMA ,12 ,1 ,H ,HALT ,Q  ) 
*  SUBROUTINE  CONDITION  7  » 

WWWWWWWWWWWWWWWWWWWWWWWWW7»Jt7TWWWWWltW*W*WWWKWWWWWWWWWWWWWW 


DIMENSION  SIGMA(<5>,2),I2(4) 
INTEGER  HALT, SHOCK, CNT ACT, 12, I 
DOUBLE  PRECISION  DELT  , SIGMA, H  ,Q 

PRINT  »  , 'CONDITION  7  REQUIRES  THAT  THE  CONTACT  SURFACE  AND 
PRINT  »  ,' SHOCK (MOVING  IN  OPPOSITE  DIRECTIONS)  MEET  AND  CROSS.   ' 
PRINT  »  ,'WHEN  THEY  INTERSECT , THE  RESULT  IS  A  FUNCTION  OF  EXIST-' 


173 


PRINT 

?Rim 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

HALT  =  1 

RETURN 

END 


■ING  CONDITIONS  AROUND  THEM.   BOTH  THE  ORIGINAL  SHOCK 
'AND  CONTACT  SURFACE  WILL  EXPERIENCE  VELOCITY  CHANGES  . 
'THIS  SUBROUTINE  WOULD  HAVE  TO  CALCULATE  WHEN  AND  WHERE 
'WITHIN  THE  TIME/SPACE  ITERVAL  THE  SHOCK  AND  CONTACT 
•SURFACE  INTERSECT.   THIS  IS  BASED  ON  KNOWN  SPEED  AND 
'THEIR  RESPECTIVE  LOCATIONS.   THIS  NEW  TIME,  DELT(NEW) 
'THEN  COULD  BE  USED  TO  RERUN  "SWEEP",  WITH  CONDITION  7S 
'EXISTING  AT  TIME  =  T  ♦  DELT(NEW).   ADDITIONAL  LOGIC  IS 
'REQUIRED  TO  CONTINUE.' 

•SHOCK  =', SHOCK,'   CONTACT  SURFACE  =',CNTACT 
'SIGMA(1,1)  =' ,SIGMA(1,1),'   SIGMA(1,2)  =' ,SIGMA( 1,2  ) 
■SIGMA(2,1)  =' ,SIGMA(2,1),'   SIGMA(2,2)  = ' ,SIGMA( 2,2 ) 
"CONTACT  SURFACE  VELOCITY  =',Q 
'NODE  I  =' ,1 


SUBROUTINE  C0ND7N( SHOCK, CNT ACT, DELT , SIGMA, 12,1 ,H, HALT, Q,X) 

«  » 

»  SUBROUTINE  CONDITION  7N  » 

DIMENSION  SIGMA(<*,2),I2(4) 
INTEGER  HALT,SH0CK,CNTACT,I2,I 
DOUBLE  PRECISION  DELT , SIGMA, H,Q,X 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

HALT  =  1 

RETURN 

END 


'CONDITION  7N  REQUIRES  THAT  WHEN  EITHER  A  SHOCK  OR 
'CONTACT  SURFACE  JUMPS  A  NODE  (AS  DETERMINED  BY 
'COMPARING  SIGMA(L,1)  TO  SIGMA! L,2))  A  CONTACT  SURFACE 
'OR  SHOCK  WOULD  BE  MET  AND  CROSSED  DURING  THE  JUMP. 
•THE  RESULT  HHEN  THEY  INTERSECT  IS  A  FUNCTION  OF 
'EXISTING  CONDITIONS  AROUND  THEM.   BOTH  THE  ORIGINAL' 
•SHOCK  AND  THE  CONTACT  SURFACE  WILL  EXPERIENCE  VELOCITY 
'CHANGES.   THIS  SUBROUTINE  WOULD  HAVE  TO  CALCULATE  WHEN 
'WITHIN  THE  TIME  INTERVAL  AND  WHERE  SPACIALLY  THE 
'INTERSECTION  OCCURS.   THIS  IS  BASED  ON  KNOWN  SPEED  AND 
'THE  RESPECTIVE  LOCATIONS  OF  THE  SHOCK  AND  CONTACT 
•SURFACE.   THE  NEW  TIME,  OELT(NEWJ,  COULD  THEN  BE  USED 
'TO  RERUN  "SWEEP"  WITH  CONDITION  '^    AT  THIS  NODE,  AND 
'SIGMA!  2,2)  =  SIGMA! 1,2)  SO  THAT  CONDITION  7S  WOULD 
'RESULT  IN  THE  NEXT  TIME  INTERVAL.' 
'SHOCK  =' .SHOCK, 'CONTACT  SURFACE  =',CNTACT 
'SIGMAd.D  =' ,SIGMA(1,1),'   SIGMA(1,2)  =  '  ,SIGMA(  1 ,2  ) 
'SIGMA(2,1)  =', SIGMA! 2,1),'   SIGMA(2,2)  = ' ,SIGMA( 2,2  ) 
'CONTACT  SURFACE  VELOCITY  =',Q 
'NODE  I  =',I,'   LOCATION  AT  X  =*,X 


SUBROUTINE  C0ND7S( SIGMA , HALT , SHOCK , CNT ACT ) 

»  » 

»                SUBROUTINE  CONDITION  7S  » 

»  » 


DIMENSION  SIGMA! ^,2) 
INTEGER  SHOCK, CNT ACT, HALT 
DOUBLE  PRECISION  SIGMA 

PRINT  »  , 'CONDITION  7S  HAS  BEEN  MET.   THIS  MEANS  THAT  THE  SHOCK 
PRINT  »  ,'AND  CONTACT  SURFACE  ARE  LOCATED  AT  THE  SAME  X  AT  A 
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PRINT  *    .'TIME  OTHER  THAN  ZERO.   THIS  SUBROUTINE  WOULD  HAVE  TO   * 

PRINT  *  , 'DETERMINE  THE  RESULT  OF  THE  INTERSECTION  BASED  ON  THE  * 

PRINT  *i    , 'CONDITIONS  TO  THE  LEFT  AND  RIGHT.   ADDITIONAL  LOGIC  IS' 

PRim   »    , 'REQUIRED  TO  PROCEED." 

PRINT  «  , 'SHOCK  =', SHOCK,'   CONTACT  SURFACE  =',CNTACT 

PRINT  »  ,'SIGMAll,l)  =',SIGMA(1,1),'   SIGMA(2,1)  =',SI6MA(2,1) 

HALT  s  1 

RETURN 

END 
C 

SUBROUTINE  C0ND8( SHOCK, CNT ACT, HALT) 
C 

c  »  » 

C        »  SUBROUTINE  CONDITION  3  » 

C        »  » 

c 

I^frEGER  HALT,  SHOCK,  CNT  ACT 
C 

PRINT  *  , 'CONDITION  8  COULD  RESULT  ONLY  AFTER  THE  ORIGINAL  SHOCK' 

PRINT  »  ,'HAS  CROSSED  THE  CONTACT  SURFACE,  AND  THE  SUBSEQUENT 

PRINT  *    , 'CONDITIONS  DETERMINED.  ADDITIONAL  LOGIC  IS  REQUIRED  TO' 

PRINT  »  , 'CONTINUE. ' 

PRINT  »  , 'SHOCK  =', SHOCK,'   CONTACT  SURFACE  =',CNTACT 

HALT  =  1 

RETURN 

END 
C 

SUBROUTINE  CORRCTl LNODE ,RNODE ,N , SIGMA ,H ,QQ ,RR ,S ,S ,61 ,G2 ,12 .X2 ,W, 
C  AR,DQ,VS,A,Q) 

C 

C  K  » 

C  *  DISCONTINUITY  CORRECTION  SUBROUTINE  » 

C  K  » 

C  *»««»»*»»**»»«»*»«»»»»»»»»»»»»»**»»*»»*»»»*»**»»»»»»*»»» 

c 

C      VARIABLE   DEFINITIONS  

C 

C      ENTRPY  -  MODIFIED  ENTROPY 

C      SNDSPD  -  SONIC  VELOCITY 

C     UA  -  VELOCITY  RELATIVE  TO  THE  SHOCK,  LEFT  SIDE 

C     UB  -  VELOCITY  RELATIVE  TO  THE  SHOCK,  RIGHT  SIDE 

C     VLCTY  -  VELOCITY 

C 

INTEGER  LNODE ,RNODE ,N,I2 ,NODE , SHOCK , CNT ACT ,K 

DIMENSION  LNOOEC  <i  )  ,RNO0E(  ^  )  ,SIGMA(  4 ,2  )  ,QQ(  N  )  ,RR(  N  )  ,S(  N )  ,I2(  '^  ) , 
C  X2t'i),A(N),Q(N),XA(<+),XB(<+) 

DOUBLE  PRECISION  SIGMA.QQ.RR ,S,A,g, 
C  H,G,G1,G2,X2,W,AR,DQ,VS, 

C  RRA,RRB,QQA,QQB,AA,AB,QA,QB,SA,SB, 

C  SAl ,SA2 , VLCTY , SNDSPD , ENTRPY ,QQCALC ,RRCALC , 

C  XB,XA 

C 

C DEFINE  STATEMENT  FUNCTIONS 

C 

QQCALC( VLCTY, SNDSPD, ENTRPY)  a  VLCTY  +  SNDSPD»ENTRPY 
RRCALC( VLCTY, SNDSPD, ENTRPY)  =  VLCTY  -  SNDSPD«ENTRPY 
C 

C  SET  INITIAL  VALUES  OF  VARIABLES  TO  ZERO 

C 

RRA  =  O.DOO 

RRB  3  O.DOO 

QQA  s  O.DOO 

QQB  a  O.DOO 

AA  -    0.000 

AB  -   O.DOO 

QA  s  O.DOO 
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QB  >  O.DOO 
SA  =  O.DOO 
SB  =  O.DOO 
DO  IS  K=l,^ 

XAIK]=O.DO 
XB(K)=O.DO 
15   CONTINUE 
C 

C   DETERMINE  IF  ONLY  ONE  NODE  NEEDS  TO  BE  CORRECTED  OR  TWO 

C   NODES.   ALSO,  IF  SHOCK  AND  CONTACT  SURFACES  ARE  CLOSE 

C   ENOUGHJHITH  IN  2H  )  TO  INTERACT 

C 

IF( ( LNODE ( 2 ) . EQ . 100  ) . OR . ( LNODE ( 3  ) . EQ . 100  )  )  THEN 

IF(  (  LNODE  I  1  ) .  GE  .  (  RNODE I  D- 2  )  ) .  AND .  (  RNODE  (  1 ) .  GT .  0  )  )  THEN 

GO  TO  20 
ELSE 

GO  TO  30 
END  IF 
ELSE  IF(RNODE(1).GT.O)  THEN 

GO  TO  20 
ELSE 

GO  TO  10 
END  IF 
C 

C  BRANCH  HERE  IF  ONLY  ONE  NODE  TO  BE  CORRECTED  (LNODE)  AND, 

C  SHOCK/CONTACT  SURFACE  INTERACTION 

C 

10  SHOCK  =  LN0DE(2) 

CNTACT  =  LNO0E(3) 
C 

C  —SHOCK  ON  LEFT,  HEADED  RIGHT,  JUMPS  OR  NOTvCONTACT  SURFACE  ON 

C  —RIGHT,  HEADED  LEFT,  DOESN'T  CROSS  NODE  — 
C 

IF( ( SHOCK. EQ. 322. OR. SHOCK. EQ. 321). AND. ( CNTACT. EQ. 232))  THEN 
C 

C  DETERMINE  NODE  TO  RIGHT  OF  SHOCK  AND  CONTACT  SURFACE 

C 

12(1)  =  LNODE(l)  ♦  1 
12(2)  =  LNOOE(l)  ♦  1 
CALL  OELTAXI 12, SIGMA, XB,XA,H) 
C 

C  EXTRAPOLATE  TO  RIGHT  FACE  OF  CONTACT  SURFACE 

C 

IF  (12(2). EQ.N)  THEN 

CALL  3B0RY(RR(N),QQ(N),S(N),RRB,QQB,SB,AB,gB) 
ELSE 

CALL  EXTRAP(RR(I2(2)),RR(I2(2)4l),QQ(I2(2)),QQ(I2(2)-»l), 
C  S(I2(2)),S(I2(2)+l),XB(2),H,RRB,QQB,SB,AB,qB) 

END  IF 
C 

C  CALCULATE  VARIABLE  CHANGE  ACROSS  CONTACT  SURFACE 

C 

SA  =  S(I2(2)-1) 

CALL  CSJUMP(AB,QB,SB,SA,G2,QA,AA) 
C 

C  IF  SHOCK  INTERACTS  CALCULATE  CHANGE  IN  VARIABLES  ACROSS  SHOCK 

C 

IF(SHOCK.EQ.321)  THEN 
QB  =  QA 
AB  -  AA 
SB  =  SA 

CALL  SKJUMP( AB,QB,S8,AR,DQ,VS,G,G1,W,AA,QA,SA ) 
QQA  =  QQCALC(QA,AA,SA) 
RRA  3  RRCALC(QA,AA,SA) 
C 

C INTERPOLATE  TO  NODE! I2( 1 )-l )  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(1). EQ. 2)  THEN 

CALL  BBDRY( RRA,QQA,SA,RR( I2( 1  )-l )  ,QQ( I2( 1  )-l ) , 
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C  S<I2(1)-1),A(I2(1)-1),Q(I2(1)-1)) 

ELSE 

CALL  ZNTERPC  RRA,RR( I2( 1 )-2 )>QQA,QQ< I2(  1 )-2 ),SA, 
C  S(I2(l)-2)>XA(l),(XA(l)-fH),RR(I2(l)-l), 

C  QQ( I2( 1  )-l ) ,S( I2( 1 )-l ) ,A(  I2(  !)-!)» 

C  Q(I2(1)-1)) 

END  IF 
ELSE 

gQ(I2(2)-l)  =  QqCALC(gA,AA,SA) 
RR(I2(2)-1)  =  RRCALC(QA,AA,SA) 
S(I2(2)-1)  =  SA 
A(I2(2)-1)  =  AA 
Q(I2(2)-1)  =  QA 
END  IF 
C 

C  —SHOCK  ON  RIGHT,  HEADED  LEFT,  CROSSES  NODE  OR  NOT»  CONTACT  SURFACE- 
C  —ON  LEFT, HEADED  RIGHT,  OOES'NT  CROSS  NODE  — 
C 

ELSE  IF( ( SHOCK. EQ. 232. OR. SHOCK. EQ. 231). AND. (CNT ACT, EQ. 322))  THEN 
C 

C  DETERMINE  NODE  TO  RIGHT  TO  SHOCK  AND  CONTACT  SURFACE 

C 

12(1)  =  LNOOE(l) 
12(2)  =  LNOOE(l) 
CALL  DELTAX(I2,SIGMA,XB,XA,H) 
C 
C  EXTRAPOLATE  TO  LEFT  FACE  OF  CONTACT  SURFACE 


C 

IF  (12(2). EQ. 2)  THEN 

CALL  BBDRY( RR( 1 )  yQQi  1 ) ,S( 1 )  ,RRA ,QQA ,SA ,AA ,QA  ) 
ELSE 

CALL  EXTRAP(RR(I2(2)-l),RR(I2(2)-2),QQ(I2(2)-l),QQ(I2(2)-2), 
C  S(I2(2)-1),S(I2(2)-2),XA(2),H,RRA,QQA,SA,AA,QA) 

END  IF 
C 

C  CALCULATE  VARIABLE  CHANGE  ACROSS  CONTACT  SURFACE 

C 

SA  =  S(I2(2)) 

CALL  CSJUMP(AA,gA,SA,SB,G2,QB,AB) 
C 

C  IF  SHOCK  INTERACTS  CALCULATE  CHANGE  IN  VARIABLES  ACROSS  SHOCK 

C 

IF( SHOCK. EQ. 231)  THEN 
QA  =  QB 
AA  =  AB 
SA  =  SB 

CALL  SKJU'MP(AA,QA,SA,AR,Dg,VS,G,Gl,W,AB,QB,SB) 
QQB  =  QQCALC(QB,A8,S&) 
RRB  =  RRCALC(QB,AB,SB) 
C 

C  INTERPOLATE  TO  N0DE(I2(1))  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(1). EQ.N)  THEN 

CALL  BBDRY( RRB .QQB ,SB,RR( 12(1))  ,qQ( 12(1)) ,S( 12(1)), 
C  A(I2(1)),Q(I2(1))) 

ELSE 

CALL  INTERP(RRB,RR(I2(l)+l),QqB,QQ(I2(l)+l),SB, 
C  S(I2(l)  +  l),XB(l),(XB(l)-fH),RR(I2(l)), 

C  QQ(I2(1)),S(I2(I)),A(I2(1)),Q(I2(1))) 

END  IF 
ELSE 

QQ(I2(2))  »  QQCALC(QB,AB,SB) 
RR(I2(2))  3  RRCALC(qB,AB,SB) 
S(I2(2))  =  SB 
A(I2(2))  =  AB 
Q(I2(2)  )  =   QB 
END  IF 
C 
C  SHOCK  ON  RIGHT, HEADED  RIGHT,  DOESN'T  CROSS  OR  ON  LEFT, HEADED 
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C RIGHT,  DOES  CROSS  J  AND  COMTACT  ON  LEFT, HEADED  RIGHT,  CROSSES 

C  —  OR  NOT:  OR  SHOCK  ON  RIGHT,  HEADED  LEFT,  DOESN'T  CROSS  NODE  — 

C  MITH  CONTACT  ON  LEFT,  HEADED  RIGHT,  AND  CROSSED  NODE  — 

C 

ELSE  IF(  (  (SHOCK. EQ. 222. OR. SHOCK. EQ. 321). AND. (CNTACT. Eg. 321. OR. 
C         CNT ACT. EQ. 322)). OR. ( SHOCK. EQ. 232. AND. CNTACT.EQ. 321)) 
C         THEN 
C 

C  ——DETERMINE  NODE  TO  RIGHT  OF  SHOCK  AND  CONTACT  SURFACE 

C 

12(1)  =  LNODE(l)  ♦  1 

12(2)  =  LNODE(l)  +  1 

CALL  DELTAX(I2, SIGMA, XB,XA,H) 
C 
C  EXTRAPOLATE  TO  RIGHT  FACE  OF  SHOCK 


C 

IF  (12(1). EQ.N)  THEN 

CALL  BBDRY(  RR(  N )  ,(3Q(  N )  ,S(  N  )  ,RRB  ,QQB  ,SB  ,AB  ,QB ) 
ELSE 

CALL  EXTRAP(RR(I2(1)),RR(I2(1)*1),QQ(I2(1)  ),QQ(I2(1)*1), 
C  S(I2(l)),S(I2(l)-»l),XB(l),H,RRB,qQB,SB,AB,QB) 

END  IF 
C 

C  CALCULATE  CHANGE  IN  VARIABLES  ACROSS  SHOCK 

C 

IF( SHOCK. EQ. 232)  THEN 
AA  =  AB/AR 

SAl  =  (G1/G)»DLOG((2.DOO*G»(W»»2)-G*1.000)  /  (6*1.000)) 
SA2  =  Gl»0LOG(((G-l.D00)»(H»»2)*2.000)  /  ((G+l.DOOl* 
-    C  I  W>«*2 )  )  I 

SA  =  SB+SA1+SA2 
UB  =  QB  -  VS 
UA  =  UB  -AA»Dq 
QA  =  UA  ♦  VS 
ELSE 

CALL  SKJUMP(AB,QB,SB,AR,0Q,VS,G,G1,W,AA,QA,SA) 
END  IF 
C 

C  CALCULATE  CHANGE  IN  VARIABLES  ACROSS  CONTACT  SURFACE 

C 

IF(CNTACT.EQ.322)  THEN 

QQ(I2(1)-1)  =  QQCALC(QA,AA,SA) 
RR(I2(1)-1)  =  RRCALC(QA,AA,SA) 
S(I2(1)-1)  =  SA 
A(I2(1)-1)  =  AA 
q(I2(l)-l)  =  QA 
ELSE 

QB  =  QA 
AB  =  AA 
SB  =  SA 

SA  =  SlI2(2)-2) 

CALL  CSJUMP ( AB ,Q8 ,SB ,SA ,G2 ,QA ,AA ) 
QQA  :  QQCALC(QA,AA,SA) 
RRA  =  RRCALC(gA,AA,2A) 
C 

C INTERPOLATE  TO  NODE( I2( 2)-l )  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(2). EQ. 2)  THEN 

CALL  BBDRY( RRA,QQA,SA,RR( I2( 2  )-l  ),QQ(I2( 2  )-l ), 
C  S(I2(2)-1)>A(I2(2)-1),Q(I2(2)-1)) 

ELSE 

CALL  INTERP( RRA,RR( I2( 2 )-2 ) ,QqA,QQ(  I2(  2 )-2  > ,SA, 
C                     S(I2(2)-2),XAt2),(XA(2)+H),RR(I2(2)-l), 
C                     QQ( I2( 2  )-l )  ,S( I2( 2  )-l )  ,A( I2( 2  )-l ), 
C                     Q(I2(2)-1)) 
END  IF 
END  IF 
C 
C  -—SHOCK  ON  LEFT,  HEADED  LEFT,  DOESN'T  CROSS  NODE,  OR  ON  RIGHT, 
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C  HEADED  LEFT,  CROSSED  NODE»  AND  CONTACT  ON  RIGHT,  HEADED  LEFT, 

C  —CROSSES  NODE  OR  NOT:  OR  SHOCK  OfJ  LEFT,  HEADED  RIGHT,  DOESN'T— - 

C CROSS  NODE,  AND  CONTACT  ON  RIGHT,  HEADED  LEFT,  CROSSED  NODE  — 

C 

ELSE  IF(((SHOCK.EQ.332.0R.SHOCK.EQ.231).AND.(CNTACT.EQ.232.0R. 
C  CNTACT . EQ . 231 ) ) . OR . ( SHOCK . EQ . 322 . AND . CNTACT . EQ . 231 ) ) 

C       THEN 
C 

C  DETERMINE  NODE  TO  RIGHT  OF  SHOCK  AND  CONTACT  SURFACE 

C 

12(1)  =  LNODE(l) 

12(2)  =  LNODE(l) 

CALL  OELTAXdZ, SIGMA, XB,XA,H) 
C 

C  EXTRAPOLATE  TO  LEFT  FACE  OF  SHOCK 

C 

IF  (12(1). EQ. 2)  THEN 

CALL  BBORY( RR( 1 ) ,QQ( 1 ) ,S( 1 ) ,RRA ,QQA ,SA ,AA ,QA  ) 

ELSE 

CALL  EXTRAP(RR(I2(l)-l),RR(I2(l)-2),QQ(I2(l)-l),QQ(I2(l)-2), 
C  S(I2(l)-l),S(I2(l)-2),XA(l),H,RRA,QgA,SA,AA,QA) 

END  IF 
C 

C  CALCULATE  CHANGE  IN  VARIABLES  ACROSS  SHOCK 

C 


.D00i<6»(W«*2)-G+l.D00)  /  (G+l.DOO)) 
000)»(W»«2)+2.DOO)  /  ((G+l.DOO  )» 


IF( SHOCK. EQ. 

322)  THEN 

AB  = 

AA/AR 

SAl 

=  (G1/G)»OLOG((2 

SA2 

=  Gl»DLOG(((G-l.i 

( H**2 ) ) ) 

SB  = 

SA+SA1+SA2 

UA  ' 

QA  -  VS 

UB  = 

UA  -  AB»OQ 

QB  = 

UB  +  VS 

S(I2<1)) 

= 

SB 

A(I2(1)) 

: 

AB 

Q(I2(1)) 

= 

QB 

QA  =  QB 

AA  =  AB 

SA  =  SB 

SB  =  S(I2(2) 

♦  11 

ELSE 

CALL  SKJUMP( AA ,QA ,SA ,AR ,OQ,VS ,G ,G1 ,M , AB ,QB ,SB  ) 
END  IF 
C 

C  CALCULATE  CHANGE  IN  VARIABLES  ACROSS  CONTACT  SURFACE 

C 

IF( CNTACT. EQ. 232)  THEN 

QQ(I2(1))  s  QQCALC(QB,AB,SB) 
RR(I2(in  =  RRCALC(QB,AB,SB) 


ELSE 


CALL  CSJUMP(AA,QA,SA,SB,G2,QB,AB) 
QQB  =  QQCALC(QB,AB,S8) 
RRB  =  RRCALC(QB,AB,SB) 
C 

C  INTERPOLATE  TO  NODE(I2(2))  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(2). EQ.N)  THEN 

CALL  BBDRY(RRB,QQB,SB,RR(I2(2)),QQ(I2(2)),S(I2(2)), 
C  A(I2(2)),Q(I2(2))) 

ELSE 

CALL  INTERP( RRB,RR( I2( 2 )  +  l ) ,QQB,QQ(  I2( 2 )  +  l ) ,SB , 
C  S(I2(2)+1),XB(2),(XB(2)+H),RR(I2(2)), 

C  QQ(I2(2)),S(I2(2)),A(I2(2)),Q(I2(2))) 

END  IF 
END  IF 
END  IF 
60  TO  <^0  > 
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C  BRANCH  HERE  IF  LNCDE  AND  RNODE  ARE  CLOSE  ENOUGH  FOR  SHOCK 

C  AND  CONTACT  SURFACE  INTERACTION 

C 

C  LEFT  NODE: 

C  —-SHOCK  ON  RIGHT,  HEADED  RIGHT,  JUMPS  NODE  WITH  CONTACT  ON  LEFT™ 

C  —HEADED  RIGHT,  JUMPS  NODE  OR  NOT  J  OR  NO  SHOCK  HITH  CONTACT  ON 

C  —LEFT,  HEADED  RIGHT,  JUMPS  MODE  — 

C  RIGHT  NODE: 

C  —SHOCK  ON  LEFT,  HEADED  RIGHT,  JUMPS  NODE  WITH  NO  CONTACT  SURFACE— 

C 

20  IF( ( ( LNODE ( 2  ) . EQ . 221) . AND . ( LNODE ( 3  ) . EQ . 321 . OR . LNOOE ( 3  ) . EQ . 322  ) ) 
C    .OR.(LNODE(2).EQ.100.AND.LNODE(3).EQ.321))  THEN 

IF( ( RNODE ( 2  ) . EQ . 321 ) . AND . ( RNODE I  3  ) . EQ . 100  ) )  THEN 
C 

C  DETERMINE  NODE  TO  RIGHT  OF  SHOCK  AND  CONTACT  SURFACE 

C 

12(1)  =  RNODE(l)  ♦  1 
IF(LNODE(2).Eq.322)  THEN 
1212)  =  LNODE(l) 
ELSE 

12(2)  =  LNODE(l)  ♦  1 
END  IF 

CALL  DELTAX( 12, SIGMA, XB,XA,H) 
C 

C  EXTRAPOLATE  TO  RIGHT  FACE  OF  SHOCK 

C 

IF  (12(1). EQ.N)  THEN 

CALL  BBORY(  RR(  N )  ,Qg(  N )  ,S(  N )  ,RRB  ,(3QB  ,SB ,  AB  ,QB  ) 
ELSE 

CALL  EXTRAP(RR(I2(1) ) ,RR( I2( 1)  +  1 )  ,QQ(I2( 1 ) t ,QQ(  I2(  1 )♦! ) , 
C  S(I2(1)),S(I2(1)+1),XB(1),H,RRB,QQB,SB,AB,QB) 

END  IF 
C 

C  CALCULATE  VARIABLE  CHANGE  ACROSS  SHOCK 

C 

CALL  SKJUMP( AB ,QB ,SB ,AR ,0Q , VS ,G ,G1 ,W , AA ,QA ,SA  ) 
C 

C  DETERMINE  CORRECTED  VALUES  AT  N0DE(I2(1)-1)  AND  ASSIGN  THEM 

C 

IF(LNODE(2).EQ.100)  THEN 

QQA  =  QQCALC(QA.AA,SA) 
RRA  =  RRCALC(QA,AA,SA) 
C 

C INTERPOLATE  TO  NODEC I2( 1  )-l )  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(1). EQ. 2)  THEN 

CALL  BBDRY( RRA,QqA,SA,RR( I2( 1  )-l ),Qq( I2( 1 )-l ), 
C  S(I2(l)-l),A(I2(l)-l),g(I2(l)-l)) 

ELSE 

CALL  INTERP(RRA,RR(I2(1)-2),QQA,QQ(I2(1)-2),SA, 
C  SII211)-2),XA(1),(XA(1)+H),RR(I2(1)-1I, 

C  Qq(I2(l)-l),S(I2(l)-l),A(I2ll)-l), 

C  Q(I2(1)-1)) 

END  IF 
C 

C  EXTRAPOLATE  TO  RIGHT  FACE  OF  CONTACT  SURFACE 

C 


ELSE 


IF  (12(2). Eq.N)  THEN 

CALL  BBDRY(RR(N),qq(N),S(N),RRB,qqB,SB,AB,qB) 
ELSE 
CALL  EXTRAP(RR(I2(2)),RR(I2(2)-i-l),qq(I2(2)),qq(I2(2)-»l), 

S(I2(2)),S(I212)*1),XB(2),H,RRB,QQB,SB,AB,QB) 
END  IF 

qQ(I2(l)-l)  =  qQCALC(QA,AA,SA) 
RR(I2(1)-1)  =  RRCALC(QA,AA,SA) 

S(I2(  1)-1  )  =  SA 

A(I2(1)-1)  =  AA   . 

q(I2(l)-l)  =  qA 
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1F(LNOOE(3).EQ.322)  THEN 

QQdZlZ))  =  gQ(I2(l)-l) 


RR(I2(2)) 

=  RR(I2(1)-1) 

S(I2(2)) 

=  S(I2(1)-1) 

A(I2(2)) 

s  A(I2(1)-1) 

q(I2(2)) 

=  Q(I2(1)-1) 

GO  TO  <tO 

ELSE 

QB  =  QA 

AB  -   AA 

SB  -  SA 

END  IF 

END  IF 

SA  s  S(I2(2)-21 

CALL  CSJUMPIAB,QB, 

SB,SA,G2,gA,AA) 

QQA  =   QQCALC(QA,AJ 

,SA) 

RRA  3  RRCALC(QA,A4 

i,SA) 

INTERPOLATE  TO  NO0E(I2(  2)-l )  AND  ASSIGN  CORRECTED 

c 

C INTERPOLATE  TO  N0DE(I2( 2)-l )  AND  ASSIGN  CORRECTED  VALUES- 

C 

IF  (12(2). EQ. 2)  THEN 

CALL  BBORY( RRA .QQA ,SA,RR( I2( 2  )-l ) ,qq( I2( 2  )-l) , 
C  S(I2(2)-1),A(I2(2)-1),Q(I2(2)-1)) 

ELSE 

CALL  INTERP( RRA,RR( I2( 2 )-2  )  ,QQA ,QQ( I2( 21-2 ) ,SA, 
C  S(I2(2)-2),XA(2),(XA(2)+H),RR(I2(2)-1), 

C  Qq(I2(2)-l),S(I2(2)-l)>A(I2(2)-l), 

C  g(I2(2)-l)) 

END  IF 
END  IF 
C 

C  LEFT  NODE: 

C  —SHOCK  ON  LEFT,  HEADED  RIGHT,  JUMPS  NODE  WITH  NO  CONTACT— 
C  RIGHT  NODE: 

C  —NO  SHOCK,  WITH  CONTACT  ON  RIGHT,  HEADED  LEFT, JUMPS  NODE 

C 

ELSE  IF((LNO0E(2).EQ.321).AND.(LNODE(3).EQ.100))  THEN 

IF(  (RNODE(2i.£Q.100KAND.(RNODE(3).EQ.231))  THEN 
C 

C  DETERMINE  NODE  TO  RIGHT  OF  SHOCK  AND  CONTACT  SURFACE 

C 

12(1)  =  LNODE(l)  ♦  1 
12(2)  =  RNODE( 1) 
CALL  OELTAXC 12, SIGMA, XB,XA,H) 
C 
C  CALCULATE  JUMP  THROUGH  CONTACT  SURFACE  THEN  SHOCK 


C 

IF(I2(l).Eq.(I2(2)-l))  THEN 
AA  =  A(I2(1)) 
QA  =  Q(I2(1)) 
SA  =  S(I2(1)) 
SB  3  S(  12(2  1-1^1) 

CALL  CSJUMP(AA,QA,SA,SB,G2,QB,AB) 
QQB  =  QQCALC(QB,AB,SB) 
RRB  =  RRCALC(QB,AB,SB) 
C 

C  INTERPOLATE  TO  NODE(I2(2))  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(2). EQ.N)  THEN 
CALL  BBDRY(RRB,QQB,SB,RR(I2(2)),Qq(I2(2)),S(I2(2)), 
C  A(I2(2)), 0(12(2))) 

ELSE 

CALL  INTERP( RRB,RR( 12(2 )♦! ) ,QQB,QQ(  I2(  2 )*1) ,SB, 
C  S(I2(2)4^1),XB(2),(XB(2)-fH),RR(I2(2)), 

C  Qq(  12(2))  ,S(  12(2))  ,A(  12(2))  ,q(  12(2))) 

END  IF 

AB  =  A(I2(1)) 
QB  =  Q(I2(1)) 
SB  =  S(I2(1)) 
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CALL  SKJUHP(AB,QB>SB,AR,Oq,VS>G,Gl,W,AA,gA,SA) 
QQA  >  QqCALC(qA,AA,SA) 
RRA  s  RRCALC(QA,AA,SA) 
C 

C imERPOLATE  TO  NODE(  I2(  1  )-l )  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(1). EQ, 2)  THEN 

CALL  BBDRY( RRA ,QQA ,SA,RR( I2( 1  )-l ) ,qg( I2( 1 )-l) , 
C  S(I2(1)-1),A(I2(1)-1),Q(I2(1)-1)) 

ELSE 

CALL  INTERPl RRA ,RR( I2( 1 )-2  )  ,QQA,QQ( I2( 1 )-2  )  ,SA, 
C  S(I2(1)-2),XA(1),(XA(1)*H),RR(I2(1)-1), 

C  QQ( I2( 1  )-ll,S(I2(l  1-1  ),A( 12(1  )-l), 

C  (3(I2(1)-1)) 

END  IF 
ELSE 

RR(I2(1)-1)  =  RR(I2(l)-2) 

Qq(i2(l)-l)  =  qq(i2(i)-2) 

S(I2(1)-1)  =  S(I2(l)-2) 
A(I2(1)-1)  =  A(I2(l)-2) 
q(I2(l)-l)  =  q(I2(l)-2) 
RR(I2(2))  =  RR(I2(2)-fl) 

qq(i2(2))  =  qq(i2(2)*i) 

S(I2(2))  =  SII2(  2>  +  l) 
A(I2(2))  =  A(I2I2)-»^1) 
q(I2(2))  =  q(I2(2)4^1) 
END  IF 
END  IF 
C 
C  RIGHT  NODE: 

C  —SHOCK  ON  RIGHT,  HEADED  LEFT,  JUMPS  NODE  WITH  NO  CONTACT 

C  LEFT  NODE: 

C  —NO  SHOCK,  WITH  CONTACT  ON  LEFT,  HEADED  RIGHT,  JUMPS  NODE 

C 

ELSE  IF( (RNODE(2).Eq.231).AND.(RNODEI3).Eq.l00))  THEN 

IF( (LNODE(2).Eq.lOOI.AND.(LNODE(3).Eq.321))  THEN 
C 

C DETERMINE  NODE  TO  RIGHT  TO  SHOCK  AND  CONTACT  SURFACE 

C 

12(1)  =  RNODE(l) 

12(2)  =  LNODE(l)  ■••  1 

CALL  OELTAX( 12, SIGMA, XB,XA,H) 


c 

c   — 
c 

CALCULATE 

JUMP 

THROUGH 

CONTACT  SURFACE  THEN  SHOCK 

IF(I2(2).Eq.(I2(l)-l))  THEN 

AB  =  A(I2(2)) 

QB  =  0(12(2)) 

SB  =  S(I2(2)) 

SA  =  S(I2(2)-2) 

CALL  CSJUMP(AB,QB,SB,SA,G2,QA,AA) 

qqA  =  qqcALC(qA,AA,SA) 

c 

c  — 
c 

RRA  =  RRCALC(qA,AA,SA) 

—INTERPOLATE 

TO 

NODE(I2(2)-l)  AND  ASSIGN  CORRECTED  VALUES 

IF  (12(2). Eq. 2)  THEN 

CALL  BBDRY(RRA,gqA,SA,RR(I2(2)-l),qq(I2(2)-l), 
C  S(I2(2)-l),A(I2(2)-l),q(I2(2)-l)) 

ELSE 

CALL  INTERP(RRA,RR(I2(2)-2),qqA,qq(I2(2)-2),SA, 
C  S(  121  2)-2),XA(2),(XA(  2  l+H  ),RR(I2(2)-1), 

C  qq(I2(2)-l),S(I2(2)-l),A(I2(2)-l), 

C  q(I2(2)-l)) 

END  IF 

AA  =  A(I2(2)) 
qA  =  q(I2(  2 ) ) 
SA  -  S(I2(2)) 
CALL  SKJUMP(AA,qA,SA,AR,Dq,VS,G,Gl,W,AB,qB,SB) 
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QQB  *   QQCALC(GB,AB>SB) 
RRB  3  RRCALC(QB,A3,SB) 
C 

C  INTERPOLATE  TO  N0DE(I211))  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(1). EQ.N)  THEN 
CALL  BBORYt  RRB,qgB,SB,RR( I2( 1 ) )  ,Qq( 12(1)) ,S( 12(1)), 
C  A(IZ(l)),q(I2(in) 

ELSE 

CALL  INTERPt  RRB,RR(  I2(  1  Ul )  ,QQB,Qq(  I2(  1)4-1 ), SB, 
C  S(I2(1)  +  1),XB(1),(XB(1)4H),RR(I2(1)), 

C  QQ(I2(1)),S(I2(1)),A(I2I1)),Q(I2(1))) 

END  IF 
ELSE 

RR(I2(2)-1)  =  RR(I2(2)-2) 

QQ(I2(2)-1)  =  QQ(I2(2)-2) 

S(I2(2)-1)  =  S(I2(2)-2) 

A(I2(2)-1)  =  A(I2(2)-2) 

g(I2(2)-l)  =  Q(I2(2)-2) 

RR(I2(1))  =  RR(I2(1)+1) 

Qq(l2(l))  =  qq(i2(i)+i) 

S(I2(1))  =  S(I2(1)+1) 
A(I2(1))  =  A(I2(1)*1) 

q(i2(i))  =  q(i2(i)+i) 

END  IF 
END  IF 
C 

C  RIGHT  NODE: 

C  —-SHOCK  ON  LEFT,  HEADED  LEFT,  JUMPS  NODE  HITH  CONTACT  ON  RIGHT™ 
C  —HEADED  LEFT,  DOES  NOT  CROSS  NODE  OR  NO  SHOCK  WITH  CONTACT  ON™ 
C  —RIGHT,  HEADED  LEFT,  CROSSED  NODE™ 
C  LEFT  NODE: 

C  SHOCK  ON  RIGHT,  HEADED  LEFT,  JUMPS  NODE  WITH  NO  CONTACT 

C 

ELSE  IF( ( ( RNOOE ( 2  ) . EO . 231 ) . AND . ( RNODE ( 3  ) . EO . 231 . OR . RNODE ( 3 ) . Eq . 
C  232)  ). OR. (RNODE (2). Eq. 100. AND. RNOOE (3). eq. 231))  THEN 

IF((LNODE(2).Eq.231).AND.(LNODE(3).Eq.lOO))  THEN 
C 

C  DETERMINE  NODE  TO  RIGHT  OF  SHOCK  AND  CONTACT  SURFACE 

C 

12(1)  =  LNODE(l) 
IF{RNODE(3).Eq.232)  THEN 

12(2)  =  RNODE( 1)  +  1 
ELSE 

12(2)  =  RNODE(l) 
END  IF 

CALL  DELTAX( 12, SIGMA ,XB,XA,H) 
C 

C  EXTRAPOLATE  TO  LEFT  FACE  OF  SHOCK 

C 

IF  (12(1). Eq. 2)  THEN 

CALL  BBDRY( RR( 1 )  ,qq( 1 )  ,S( 1 )  ,RRA,qqA,SA ,AA,qA  ) 
ELSE 

CALL  EXTRAP(RR(I2(l)-l),RR(I2(l)-2nqq(I2(l)-l),qq(I2(l)-2), 
C  S(I2(l)-l),S(I2(l)-2),XA(l),H,RRA,qqA,SA,AA,qA) 

END  IF 
C 

C  CALCULATE  VARIABLE  CHANGE  ACROSS  SHOCK 

C 

CALL  SKJUMP(AA,qA,SA,AR,Dq,VS,6,Gl,W,AB,qB,SB) 
C 

C  DETERMINE  CORRECTED  VALUES  AT  N0DE(I2(1))  AND  ASSIGN  THEM 

C 

IF(RNODE(2).Eq.lOO)  THEN 

qqB  =  qqcALC(qB,AB,SB) 

RRB  =  RRCALC(QB,AB,SB  ) 
C 

C  INTERPOLATE  TO  N0DE(I2(1))  AND  ASSIGN  CORRECTED  VALUES 

C   " 
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IF  (12(1). EQ.N)  THEN 
CALL  BBDRY(RRB,QQB,SB,RR(I2(1)),QQCI2(1)),S(I2(1))> 
C  A(I2(1)),Q(I2(1))) 

ELSE 

CALL  INTERP(RRB,RR(I2(1)*1),QQB,QQ(I2(1)+1),SB, 
C  S(I2ll)4l),XB(l),(XBIl)4H)>RR(I2(ll)> 

C  Qg(I2(l)),S(I2(l)),A(I2(I)),g(I2(l))) 

END  IF 
C 

C  E>aRAPOLATE  TO  LEFT  FACE  OF  CONTACT  SURFACE 

C 

IF  (12(2). EQ. 2)  THEN 

CALL  BBORY ( RR( 1 )  ,Qq( 1 )  ,S( 1)  ,RRA ,QQA ,SA , AA ,QA ) 
ELSE 

CALL  EXTRAP(RR(I2(2)-l),RR(I2(2)-2),QQ(I2(2)-l),QQ(I2(2)-2)» 
C  S(I2(2)-1),S(I2(2)-2),XA(2),H,RRA,QQA,SA,AA,QA) 


END  IF 

ELSE 

QQ(I2(1))  =  QQCALC(QB,AB,SB) 

RR(I2(1))  =  RRCALCtQB.AB.SB) 

S(I2(1))  =  SB 

A(I2(1))  =  AB 

Q(I2(1))  =  QB 

IF(RNO0E(3).EQ.252) 

THEN 

RR(I2(1)-»1) 

=  RR(I2(1)) 

QQ(I2(1)-»1) 

=  QQ(I2(1)) 

S(I2(1)*1) 

=  S(I2(1)) 

A(I2(1)«1) 

=  A(I2(1)) 

Q(I2(1)+1) 

=  Q(I2(1)) 

/ 

GO  TO  '♦O 

ELSE 

QA  =  QB 
AA  =  AB 
SA  =  SB 

END  IF 

END  IF 

c 
c   — 

SB  =  S(I2(2)*1) 

CALCULATE  VARIABLE  CHANGE  ACROSS  CONTACT  SURFACE 

c 

CALL  CSJUMP(AA,QA,SA,SB,62,QB>AB) 
QQB  =  gQCALC(QB,AB,SB1 
RRB  3  RRCALCIQB,AB,SB) 
C 

C  INTERPOLATE  TO  NODE( 12(2  1)  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(2). EQ.N)  THEN 
CALL  BBDRY(RRB,QQB,SB,RR(I2(2)),QQ(I2(2)),S(I2(2))> 
C  A(I2(2)),Q(I2(2)  )) 

ELSE 

CALL  INTERP( RRB,RR( I2( 2  )  +  l ) ,QQB,QQ( 12(2 )  +  l )  ,SB, 
C  S(I2(2)*1),XB(2),(XB(2)*H),RR(I2(2)), 

C  QQ(I2(2)),S(I2(2)),A(I2(2)),Q(I2(2))) 

END  IF 
END  IF 
END  IF 
GO  TO  <»0 
C 
C  —  BRANCH  HERE  IF  THERE  ARE  ONE  OR  TWO  NODES  TO  CORRECT,  BUT  THEY  — - 

C ARE  SEPERATED  BY  MORE  THAN  2H.   CHECK  FOR  SHOCK/CONTACT  SURFACE  — 

C  INTERACTION,  AND  CORRECT  APPROPRIATELY  

C 

30  NODE  =  LNODE(l) 

SHOCK  =  LNCDE(2) 
CNTACT  =  LN0DE(3) 
C 

C  —  NO  SHOCK,  CONTACT  SURFACE  ON  LEFT,  HEADED  RIGHT,  JUMPS  NODE  — 
C 

35  IF( (SHOCK. EQ. 100). AND. (CNTACT. EQ. 321))  THEN 
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12(2)  s  NODE  *   1 
CALL  DELTAX(I2,SIGt1A,XB,XA,H) 
C 

C  CHECK  FOR  A  SHOCK  INTERACTING  WITH  CONTACT  SURFACE  AT  NODE 

C 

IF( ( SIGMA! 1 ,2 ) . LT . ( X2( 2 )*H )) . AND . 
C        (SIGMA(1,2).GT.(X2(2))))THEN 
AB  =  A(I2(2)) 
QB  s  Q(I2(2)) 
SB  =  S(I2(2)) 
ELSE 
C 

C  EXTRAPOLATE  TO  RIGHT  FACE  OF  CONTACT  SURFACE 

C 

IF  (12(2). EQ.N)  THEN 

CALL  BBORY(  RR(  N )  ,QQ(  N  )  >S(  N )  ,RRB  .QQB  ,SB  > AB  ,(3B  ) 
ELSE 

CALL  EXTRAP(  RR(  12(2))  ,RR(  I2(  2  )*1 )  ,QQ(  12(2))  ,QQ(  I2(  2  )-i-l) , 
C  S(I2(2)),S(I2(2)>I),XB(2),H,RRB,QqB,SB,AB,QB) 

END  IF 
END  IF 

SA  =  S(I2(2)-2) 
C 

C  —  CALCULATE  VARIABLE  CHANGE  OVER  CONTACT  SURFACE  — 
C 

CALL  CSJUMP(AB,gB,SB,SA,G2,qA,AA) 
QQA  :  QQCALC(QA,AA,SA) 
RRA  =  RRCALC(QA,AA,SA) 
C 

C  INTERPOLATE  TO  NODE(I2(2)-I)  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(2). EQ. 2)  THEN 

CALL  B60RY(RRA,QQA,SA,RR(I2(2)-l)>Qg(I2(2)-l), 
C  S(I2(2)-1),A(I212)-1),Q(I2(2)-1)) 

ELSE 

CALL  INTERP( RRA,RR( I2( 2  )-2  ) ,gQA,gq( I2( 2 1-2 ) ,SA, 
C  S(I2(2)-2),XA(2),IXA(  2  )+H  )  ,RR(  I2(  2  )-l ) » 

C  QQ(I2(2)-1)>S(I2(2)-1),A(I2(2)-I)» 

C  Q(I2(2)-1)) 

END  IF 
C 

C  NO  SHOCK,  CONTACT  SURFACE  ON  LEFT,  HEADED  LEFT,  JUMPS  NODE  

C 

ELSE  IF((SHOCK.EQ.100).AND.(CNTACT.EQ.231))  THEN 
12(2)  =  NODE 

CALL  DELTAXl 12, SIGMA, XB,XA,H) 
C 

C  CHECK  FOR  A  SHOCK  INTERACTING  WITH  CONTACT  SURFACE  AT  NODE 

C 

IF( ( SIGMA( 1 ,2 ) .GT . ( X2( 2 )-( 2 . DOO*H )  ) ) . AND . ( SIGMA( 1 ,2  ) . LT. 
C        (X2(2)-H)  ))  THEN 

AA  =  A(I2(2)-1) 
QA  =  Q(I2(2)-1) 
SA  =  S(I2(2)-1) 
ELSE 
C 

C  EXTRAPOLATE  TO  LEFT  FACE  OF  CONTACT  SURFACE 

C 

IF  (12(2). EQ. 2)  THEN 

CALL  BBORY( RR( 1 )  *Q(H  1 ) ,S( 1 ) ,RRA ,qQA ,SA , AA ,qA  ) 
ELSE 

CALL  EXTRAP(RR(I2(2)-l),RRlI2(2)-2),qqiI2(2)-l),qq(I2(2)-2), 
C  S(I2(2)-l),S(I2(2)-2),XA(2),H,RRA,qqA,SA,AA,QA) 

END  IF 
END  IF 

SB  =  SII2(2)*1) 
CALL  CSJUMP(AA,QA,SA,SB,62,QB,AB) 

qoB  -  qqcALC(qB,AB,SB) 

RRB  =  RRCALC(qB,AB,SB) 
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c 

C  INTERPOLATE  TO  NO0E(I2(2)>  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(2). EQ.N)  THEN 

CALL  BBDRY( RRB,QQB,SB,RR( 12(2)) >Qq( I2( 2 ) ) >S( I2( 2 ) ) , 
C  A(I2(2)),q(I2(2))) 

ELSE 

CALL  INTERP(  RRB,RR(I2(  2  )-i'l),QQB,QQ(  12(2)41), SB » 
C  S(I2(2)*1),XB(2),(XB(2)+H),RR(I2(2)), 

C  Qq(I2(2)),S(I2(2)),A(I2(2))>q(I2(2))) 

END  IF 
C 

C  SHOCK  ON  LEFT,  HEADED  RIGHT,  JUMPS  NODE  WITH  NO  CONTACT  

C 

ELSE  IF( (SHOCK. EQ. 321). AND. (CNTACT.EQ. 100))  THEN 
I2( 1)  =  NODE  +  1 
CALL  DELTAX(I2, SIGMA, XB.XA.H) 
C 

C  CHECK  FOR  A  CONTACT  SURFACE  INTERACTING  HITH  SHOCK  AT  NODE 

C 

IF((SIGMA(2,2).LT.(X2(l)-i-H)).AND. 
C         (SIGMA( 2,2). GT.(X2(1))))  THEN 
AB  =  A(I2(1)) 
QB  =   Q(I2(1)) 
SB  3  S(I2(1)) 
ELSE 
C 

C  EXTRAPOLATE  TO  RIGHT  FACE  OF  SHOCK 

C 

IF  (12(1). EQ.N)  THEN 

CALL  BB0RY(RR(N),QQ(N),S(N),RRB,Q<3B,SB,AB,QB) 
ELSE 

CALL  EXTRAP(RR(I2(l)),RR(I2(l)+l),QQ(I2(l)),Qg(I2(l)+l), 
C  S(I2(1)),S(I2(1)4'1),XB(1),H,RRB,(3QB,SB,AB,QB) 

END  IF 
END  IF 
C 

C  -—  CALCULATE  VARIABLE  CHANGE  ACROSS  SHOCK  — 
C 

CALL  SKJUMP(AB,QB,SB,AR,D(3,VS,G,Gl,H,AA,gA,SA) 
QQA  =  QQCALCIQA,AA,SA) 
RRA  =  RRCALC(QA,AA,SA) 
C 

C  INTERPOLATE  TO  N0DE(I2(1)-1)  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(1). EQ. 2)  THEN 

CALL  BBORYC  RRA, QQA ,SA,RR( I2( 1  )-l )  ,QQ( I2( 1  )-l ) , 
C  S(I2(1)-1),A(I2(1)-1),QII2(I)-1)) 

ELSE 

CALL  INTERP( RRA, RR( 12(1 )-2), QQA, QQ(I2( 1I-2),SA, 
C  S(I2(1)-2),XA(1),IXA(1}+H),RR(I2(1)-1), 

C  QQ( 12(1 )-l ) ,S( I2( 1 )-l ),A(  I2( 1 )-l ) , 

C  Q(I2(1)-1)) 

END  IF 
C 

C  -—  SHOCK  ON  RIGHT,  HEADED  LEFT,  JUMPS  NODE  WITH  NO  CONTACT  SURFACE  — 
C 

ELSE  1F( (SHOCK. EQ. 231). AND. (CNTACT.EQ. 100))  THEN 
12(1)  =  NODE 

CALL  DELTAX( 12, SIGMA, XB,XA,H) 

IF ( ( SIGMA( 2 , 2  ) . GT . ( X2 ( 1 )-( 2 . DOO»H ) ) ) . AND . ( SIGMA( 2 , 2 ) . LT . 
C         1X2( 1)-H)  )  )  THEN 

AA  =  A(I2(1)-1) 
QA  =  Q(I2(1)-1) 
SA  =  S(I2(1)-1) 
ELSE 
C 

C EXTRAPOLATE   TO   LEFT    FACE   OF   COhTTACT   SURFACE 

C 
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IF  (12(1). EQ. 2)  THEN 

CALL  BBORY( RR( 1 ) ,Qq( 1 ) ,S( 1 ) ,RRA ,QqA,SA,AA ,QA J 
ELSE 

CALL  EXTRAP( RR( I2( 1  )-l ) ,RR( I2( 1 )-2 ) ,Qq( I2( 1 )-l ) ,QQ( 121 1 )-2 ) , 
C  S( I2( 1  )-l )  ,S( I2( 1  )-2  )  ,XA( 1 )  ,H ,RRA,QqA,SA ,AA>QA  ) 

END  IF 
END  IF 
C 

C  CALCULATE  VARIABLE  CHANGE  OVER  SHOCK  

C 

IF(I2(l).Eq.N-l)  THEN 
END  IF 

CALL  SKJUHPI AA ,QA ,SA ,AR ,DQ > VS ,G ,G1 ,W , AS ,QB ,SB ) 
C 

C  DETERMINE  CORRECTED  VALUES  AT  N0DE(I2«1))  AND  ASSIGN  THEM 

C 

IF(I2(1).EQ.N-1)  THEN 
END  IF 

QQB  =  QgCALC(QB,AB,SB) 
RRB  =  RRCALC(gB,AB>SB) 
C 

C  INTERPOLATE  TO  N0DE(I2(1))  AND  ASSIGN  CORRECTED  VALUES 

C 

IF  (12(1). EQ.N)  THEN 

CALL  BBORY( RRB  >QQB ,SB  »RR( 12(1))  ,Q(H  I2( 1 ) )  ,S( I2( 1 ) ) > 
C  A(I2(1)),Q(I2(1))) 

ELSE 

CALL  INTERP( RRB,RR( I2( 1 )♦! ) ,QQB,QQ(  I2( 1 )+l ) ,SB, 
C  S(I2(1)  +  1),XB(1),(XB(1)+H),RR(I2(1)), 

C  gQ(I2(l)),S(I2(I))»A(I2(l)),q(I2(l))  ) 

END  IF 
END  IF 
C 

C  —  CHECK  IF  SECOND  NODE  NEEDS  CORRECTING  IF  SO  LOOP  BACK  AROUND  — 
C 

IF(RNOOE(1).EQ.O)  GO  TO  <tO 
NODE  =  RNOOE(l) 
SHOCK  =  RNO0E(2) 
CNTACT  =  RN0DE(3) 
RNODE(l)  =  0 
GO  TO  35 
<tO   RETURN 
END 
C 

SUBROUTINE  DELTAX( 12, SIGMA, XB,XA,H) 
C 

c  »«**»♦»*»«»***»*»*«  *»»»«*«»«»«»*»»*««»»*»»*»»»»»»»»»»»»»» 

c  »  * 

C        »   LOCATE  DISCONTINUITY  WITHIN  INTERVAL  SUBROUTINE    » 
C        *  * 

C 

DIMENSION  12(4)  ,SIGMA(  <^ ,  2  )  ,XB(  4  )  ,XA(  <i  )  ,X2(  <♦  ) 

INTEGER  12 

DOUBLE  PRECISION  SIGMA, XB,XA,H,X2 

X2(3)=0.D00 

X2(<f  )=0.D00 
C 

C  CALCULATE  DISTANCE  NODE  TO  RIGHT  OF  DISCONTINUITY  IS  FROM  LEFT  — 

C BOUNDARY  OF  TUBE  THEN  DETERMINE  DISTANCE  FROM  THIS  NODE  I2(») 

C  TO  DISCONTINUITY  AND  DISTANCE  FROM  NODE  TO  LEFT  OF  DISCONTINUITY- 

C  TO  THAT  DISCONTINUITY 

C 

X2(l)  =  DBLE(I2(1)-1)  »  H 

XB(1)  =  (X2(1)-SIGMA(1,2)) 

XA(1)  =  (H-XB( 1)1 
C 

C  CALCULATE  SAME  VALUES  FOR  CONTACT  SURFACE 

C 

187 


X2(2)  s  DBLE(I2(2)-1)  »  H 

XB(2)  =  (X2(2)-S1GMA( 2,2)1 

XA(2)  =  (H-XB(2n 

RETURN 

END 
C 

SUBROUTINE  SKJUMP( ADN,QDN,SON,ARATIO,DELTAQ,VSHOCK,G,G1,W, 
C  AUP,QUP,SUP) 

C 

G  »  * 

C        »  SHOCK  JUMP  SUBROUTINE  » 

C.       »  » 

c 

C     VARIABLE   DEFINITIONS  

C 

C     »0N  -  VARIABLE  DOWNSTREAM  OF  SHOCK 

C     ARATIO  -  SPEED  OF  SOUND  RATIO 

C     OELTAQ  -  VELOCITY  JUMP  ACROSS  SHOCK 

C     »UP  -  VARIABLE  UPSTREAM  OF  SHOCK 

C     VSHOCK  -  SHOCK  VELOCITY 

C 

DOUBLE  PRECISION  AON, QDN.SDN, ARATIO, DELTAQ, VSHOCK, G»G1,H, 
C  AUP,QUP,SUP,SA1,SA2,UDN,UUP 

C 

C  CALCULATE  THE  SPEED  OF  SOLB^D  CHANGE  THRU  SHOCK 

C 

AUP  =  ADN»ARATIO 
C 

C  CALCULATE  THE  ENTROPY  CHANGE  THRU  SHOCK 

C 

SAl  =  (Gl/G)X0LOG((2.D00*G»(W»»2)-G+l.D00)/(G+l.DOO)) 

SA2  =  G1»OLOG( ((G-l.D00)*(W»«2)+2)/((G+1.000)*(W*»2))) 

SUP  =  SDN  -  SAl  -  SA2 
C 

C  CALCULATE  THE  VELOCITY  CHANGE  ACROSS  SHOCK 

C 

UDN  =  QDN  -  VSHOCK 

UUP  =  UDN  ♦  ADN*OELTAQ 

QUP  =  UUP  ♦  VSHOCK 

RETURN 

END 
C 

SUBROUTINE  CSJUMPt  ADN , QDN , SON ,SUP ,G2 ,QUP ,AUP  ) 
C 

C  »  * 

C  »       CONTACT  SURFACE  JUMP  SUBROUTINE  » 

C  »  * 

c  «»*«»*»*»»»»***»**»»»»*»»»«»«*»»»*»*****»»»»»»*»«»««*»»« 

c 

DOUBLE  PRECISION  QUP , QDN, AUP, ADN, SUP , SON, G2 
C 

C CALCULATE  THE  SPEED  OF  SOUND  CHANGE  ACROSS  THE  CONTACT  SURFACE  — 

C  NOTE:  THE  VELOCITY  IS  CONTINUOUS  ACROSS  A  C.S. 

C 

QUP  =  QDN 

AUP  =  ADN  »  DEXP(( SON-SUP  )/G2) 

RETURN 

END 
C 

SUBROUTINE    EXTRAPt  RRL ,RRR ,QqL .QQR ,SL ,SR ,0X ,DH ,RRIMT ,QqiNT ,SINT , 
C  AINT.QINT) 

C  *  ^ 

C        »  EXTRAPOLATION  SUBROUTINE  » 

C        »  » 
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DOUBLE  PRECISION  RRL,RRR.QQL,QQR,SL>SR»DX,DH,RRIKrr,qQINT,SINT. 

c  AiNT.Qirrr 

c 

C  REIMAN  VARIABLES  ARE  EXTRAPOLATED,  AND  THE  CORRESPONDING 

C  VALUES  FOR  VELOCITY  AND  SPEED  OF  SOUND  ARE  CALCULATED 

C 

RRIMT  =  RRL  -  (DX  »  ( RRR-RRLVDH ) 
QQINT  =  QQL  -  (DX  »  (QQR-QQD/DH) 
SINT  =  SL  -  (DX  »  (SR-SL)/DH) 
AINT  =  (QQINT-RRINT)/(2.D00»SINT) 
QINT  =  (QqiNT+RRINT)/(2.D00) 
RETURN 
END 
C 

SUBROUTINE  INTERPl  RRL ,RRR >(3QL,gQR,SL,SR, DX, OH, RRINT , QQINT, SINT, 
C  AINT, QINT) 

9V  JV  Jf  JW*WWW5VW3^WW  W  K  ^  W  W^  «  ^  W^WW  RXKKXXXXXMKMX  ^  W^^PW  A  ^  K  K^t^  M  A  K  A  H  X  K 

C  K  )( 

C        «  INTERPOLATION  SUBROUTINE  « 

C        »  w 

C 

DOUBLE  PRECISION  RRL ,RRR,QQL,QQR,SL, SR, OX, DH,RRINT, QQINT, SINT, 
C  AINT, QINT 

C 

C  REIMAN  VARIABLES  ARE  INTERPOLATED,  AND  THEIR  CORRESPONDING 

C  VALUES  OF  VELOCITY  AND  SPEED  OF  SOUND  ARE  CALCULATED 

C 

RRINT  a  RRL  -  (DX  »  1 RRL-RRR  )/0H ) 
QQINT  =  QQL  -  ( DX  »  ( QQL-QQR  )/DH ) 
SINT  =  SL  -  (DX  »  (SL-SR)/DH) 
AINT  =  (QQINT-RRINT)/(2.D00*SINT) 
QINT  =  (QQINT+RRINT)/2.D00 
RETURN 
END 
C 

SUBROUTINE  0BURST(N,H,qQ,RR,S,G,Gl,G2,0ELT,I2,X2,W,AR,DQ,VS, 
»LHPRES,SIGMA,A,Q) 
C 

c     »»»**«»*»***»*»*»*»*»*««»»«*»*»*»**«*»«»»»«*»»«» 
c  *  * 

C      »  OIAPHRAM  BURSTING  SUBROUTINE  » 

C      »  » 

c 

INTEGER  N,I,Y,I2,L,SHKDIR,CSDIR,LHPRES 

DIMENSION  X2(4),RR(N),QQ(N),S(N),I2(<^),SIGMA(4,2),A(N),Q(N) 
DOUBLE  PRECISION  X2 ,X ,H , AB ,SA ,SB , AA ,QA .QB ,QQA ,QQB ,RRA ,RRB , SIGMA , 
C  RR,QQ,3,TS,W,DQ,AR,PR,G,G1,G2,VS,0ELT,CSRMN,A, 

C  Q,MREIMN,DREMN,EREIHN,WW,SA1,SA2,SAP,SBP,XB,XA 

C 

C      ♦♦♦♦♦♦♦♦   LOCATING  THE  NODE  TO  THE  RIGHT  ♦♦♦++++♦♦♦+ 
C 

DO  10  L=l,4 

SIGMA( L ,1 )=SIGMA( L,2 ) 
Y=0 
X=H 
1  =  2 
11      IF  ( .NOT.(Y.EQ.O))  GOTO  10 

IF  (SIGMA(L,1).LT.X)  THEN 
X2rL)=X 
I2(L)=I 
Y=l 
END  IF 
X=X+H 
I=I>i 
GOTO  11 
10   CONTINUE 
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c 

C      ♦♦4^.++*++4.**+   CORRECT  FOR  DIAPHRAM  BURSTING  ♦♦+♦♦♦♦♦♦♦♦♦♦ 

C 

c 

C  AT  TIME  ZERO  DETERMINE  CORRECT  SHOCK  DIRECTION 

C  SHKDIR  =  2  IS  A  SHOCK  HEADED  LEFT,  AND  SHKDIR  =  2  IS  SHOCK- 

C TRAVELING  RIGHT 

C 


IF(LWPRES.Eq.3)  THEN 

SHKDIR  =  3 

X2(l)  =  X2(l) 

-  H 

12(1)  =  12(1) 

-  1 

X2(2)  =  X2(2) 

-  H 

12(2)  =  12(2) 

-  1 

GO  TO  20 

ELSE 

SHKDIR  =  2 

END  IF 

20  RRA=RR( 12(1 1-1) 

RRB=RR(I2(  1 ) ) 
QQA=(3Q(I2(1)-1) 
QQB=QQ(I2(1)) 
SA=S(I2(  1 1-1) 
SB=S(I2(  1)) 

21  AB=(QQB-RRB)/(2.D00*SB) 

AA=( QQA-RRA  )/( 2 . DOO*SA ) 

IF(SHKDIR.EQ.3)  THEN 

MREIMN  =  (RRB-RRA)/AA 
DREMN  =  DABS( MREIMN) 


ELSE 


END  IF 


MREIMN  =  (QQA-qQB)/AB 
DREMN  =  MREIMN 


C 

C  ITERATE  FOR  PROPER  VALUE  OF  W  USING  THE  QUADRATIC  FIT  OF  THE 

C REIMAN  VARIABLE  CHANGE  WITH  V  CURVE.   NOTE  LEFT  MOVING  SHOCKS™ 

C ARE  USED  IN  THESE  EQUATIONS  SINCE  RRB-RRA/AA=-( QQA-QQB/AB  ) 

C 

100   HH=(  3 .  0396<408001-(  (  DREMN*2 .  757<*D00  )/0 .  286337D00  ) ) 
W=5.51329^O00-DSQRT(WW) 
0Q=2.000*KW»W-1.D001/(H»(G*1.D00)) 

AR=0SQRT(2.000*(G-1.D00  )»(l.DOO  +  ( ( G-l.DOO )»W»W/2.000 ) )« 
C  (  G»62*W)fW-l .  DOO  )  )/(  (  G  +  1 .  DOG  )»W  ) 

PR=(2.D00*G/(G  +  1.D00  )  )*W*W-( ( G-1. DOO )/( G+1. DOO ) ) 
DR  =  ( (G-l.OOO  )*W*W  +  2.000  )/( (G  +  l.DOO !»W»H) 
EREIMN=DQ+( AR-1 . 000  )»G2-( AR*G1/G )»DLOG( PR»( DR»*G ) ) 
IF  (DABS(EREIMN-DABS(MREIMN)).LT.0.1D-5)  GO  TO  110 
DREMN  =  (DABS( MREIMN)  -  EREIMN)  ♦  DREMN 
GOTO  100 
C 

C  DETERMINE  S  BEHIND  SHOCK  AND  THEN  CALCULATE  THE  RIEMANN 

C  VARIABLE  CHANGE  ACROSS  THE  CONTACT  SURFACE 

C 

110      SAl  =  (G1/G)*DL0G( (2.D00»G»(W»»2)-G+1.D00)/(G+1.D00)) 

SA2  =  GH*DL0G(  (  (G-l.D00)»(W*»2)*2)/(  (G*1.D00)»(HJ»»2))) 
IF(SHKDIR.£Q.2)  THEN 

SAP  =  SB  -  SAl  -  SA2 
SBP  =  SAP 
ELSE 

SBP  =  SA  -  SAl  -  SA2 
SAP  =  SBP 
END  IF 
103      IF(SHKDIR.EQ.2)  THEN 

CSRMN  =( ( DEXP( ( SBP-SA  )/G2 ) )»( SA )-( SBP ) )»AR 
ELSE 

CSRMN  =1  (  DEXP(  1  SAP-SB  )/G2  )  )»(  SB  )-(  SAP  )  )J*AR 
END  IF 
IF(SHKDIR.Eq.3)  THEN 
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MREIMN  =1 ( RRB-RRA  )/AA )*CSRMN 
DriEMf4   =   DABS(MREIMN) 


ELSE 


MREIMN  =1 1 QQA-QQB  )/AB  )-CSRMN 

DREMN  =  MREIMN  

END  IF  -   - 

101  WH=(5.0396^08001-((DREMN+2.757<fD00)/0.286337D00)) 

W=5.51329^D00-DSQRT( WW ) 

DQ=2 .  Doo*r  mn-i .  doo  )/( w«(  g+i  .  doo  ) ) 

AR=DSQRT( 2 . D00»( 6-1 . DOO )»( 1 . D00+( ( G-1 . DOO )»W»W/2 . DOO ) )» 
C  ( G»G2*W»W-1 , DOO ) )/( ( G+1 . 000 )*W ) 

PR=( 2 . D00»G/( G+1 . DOO ) )hW»W-( ( G-1 . DOO  )/( G*l . DOO  ) ) 
DR=(  (G-1. 000  ))tW*W+2.000  )/(  (G+1. 000  )»W*W) 
EREIMN=OQ+( AR-l.DOO  )»G2-( AR»G1/G  )*0L0G( PR»( DR»*G) ) 
IF  (DABS(ER£IMN-OABS(  MREIMN  )).l.T.0.1D-5)  GO  TO  102 
OREMN  =  (DABS( MREIMN)  -  EREIMN)  ♦  DREMN 
GOTO  101 

102  SAl  =  (Gl/G)»DLOG((2.D00»G»(W«»2)-G+l.D00l/(G*l.D00)) 

SA2  =  G1»*DL0G(  (  (G-l.D00)»(WJHt2)  +  2)/((G*1.000)»(W»»2))) 
IF(SHKDIR.EQ.2)  THEN 

SAP  =  SB  -  SAl  -  SA2 
ELSE 

SBP  =  SA  -  SAl  -  SA2 
END  IF 

IF  (DABS(SAP-SBP).LT.0.1D-5)  GO  TO  105 
IFtSHKDIR.EQ.2)  THEN 

SBP  =  (SAP-SBP)  ♦  SBP 
ELSE 

SAP  =  (SBP-SAP)  ♦  SAP 
END  IF 
GO  TO  103 
C 
C  CALCULATE  SHOCK  VELOCITY  


C 

105  IF(SHKDIR.EQ.3)  THEN 

DQ  =  (-l.DOO)»Dq 

VS  =  ((RRA+QQA]»O.SDOO)  -  ( W*AA ) 
ELSE 

VS=(QQB+RRB)»O.SDOO+W*AB 
END  IF 

IF(SHKDIR.Eq.2)  THEN 
C 

C  EXTRAPOLATE  TO  RIGHT  FACE  OF  SHOCK 

C 

CALL  EXTRAP(RR(I2(l)),RR(I2(l)  +  l),(}Q(I2(in,QQ(I2(l)  +  l), 
C  S(I2(1)  ),S(I2(1)>1),H,H,RRB,QQB,SB,AB,QBI 

C 

C  CALCULATE  CHANGE  IN  VARIABLES  ACROSS  SHOCK 

C 

CALL  SKJUMP(AB,QB,SB,AR,DQ,VS,G,G1,W,AA,QA,SA) 
C 

C  CALCULATE  CHANGE  IN  VARIABLES  ACROSS  CONTACT  SURFACE 

C 

(3B  =  QA 
AB  =  AA 
SB  =  SA 

SA  =  S(I2(2)-2) 

-CALL  CSJUMPl AB ,QB ,SB ,SA ,G2 >gA ,AA ) 
QQA  3  QA  -f  AAKSA 
RRA  =  QA  -  AA*SA 
XA=O.DO 
C 

C INTERPOLATE  TO  NODE( I2( 2  )-l )  AND  ASSIGN  CORRECTED  VALUES 

C 

CALL  INTERPf  RRA,RR( I2( 2 )-2 ) ,QQA,QQ( I2( 2 )-2 ) ,SA, 
C  S(I2(2)-2),XA,(XA+H),RR(I2(  2)-l), 

C  QQ( I2( 2  )-l ) ,S( I2( 2 )-l  ),A( I2( 2 )-l ), 

C  Q(I2(2)-1)) 

ELSE 
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c 

C  EXTRAPOLATE  TO  LEFT  FACE  OF  SHOCK 

C 

CALL  EXTRAPC RR( I2( l)-l),RR(I2(l)-2),qq( 12(1 1-1  ),Qq(I2(l)-2), 
C  S( Z2(1)-1),S( 12(1 1-2 )>H,H,RRA»QQA,SA,AA,QA) 

C 

C  CALCULATE  CHANGE  IN  VARIABLES  ACROSS  SHOCK 

C 

CALL  SKJUMP(AA,QA,SA,AR,Dq,VS,G,Gl,H,AB,QB,SB) 
C 

C  CALCULATE  CHANGE  IN  VARIABLES  ACROSS  CONTACT  SURFACE 

C 

QA  =  QB 
AA  =  AB 
SA  =  SB 

SB  =  S(I2(2)*1) 

CALL  CSJUMP(AA>QA,SA,SB,G2,QB,AB) 
QQB  =  QB  4  ABWSB 
RRB  =  QB  -  AB»SB 
XB=O.DO 
C 

C  INTERPOLATE  TO  NODE (12(2))  AND  ASSIGN  CORRECTED  VALUES 

C 

CALL  INTERP(  RRB,RR(  I2(  2)4-1)  ,QQB,QQ(  I2(  2  )>1  )>SB> 
C  S(I2(2)-fl),XB,(XB«H),RR(I2(2)), 

C  QQ(I2(2)),S(I2(2)),A(I2(2)),Q(I2(2))) 

END  IF 
RETURN 
END 
C 

SUBROUTINE  3ON0RY( Ql ,Q2 ,gB>Al,A2,QQl ,Qg2 ,RR1,RR2,S1,S2»H,EE » 
C  DELT ,BNDRY ,BOPRS ,BOPR ,BDDR ,BOTR , J , 

C  NEWQQl .NEHRRl ,NEWS1 ,G,G1 ,G2  ,HALT ,BDRY ,SK  ) 

C 

C  »  * 

C        »  BOUNDARY  COUNDITION  SUBROUTINE  » 

C        »  tf 

C 

c 

C     VARIABLE   DEFINITIONS  

C 

C     »BD  -  VARIABLE  AT  PHANTOM  NODE 

C      *1  -  VARIABLE  AT  BOUNDARY  NODE 

C      *2  -  VARIABLE  AT  FIRST  NODE  INSIDE  BOUNDARY 

C     02  -  DENSITY  RATIO  AT  FIRST  NODE  INSIDE  BOUNDARY 

C     P2  -  PRESSURE  RATIO  AT  FIRST  NODE  INSIDE  BOUNDARY 

C     QB  -  INITIAL  VELOCITY  AT  AN  OPEN  BOUNDARY 

C     T2  -  TEMPERATURE  RATIO  AT  FIRST  NODE  INSIDE  BOUNDARY 

C 

DIMENSION  AINT( 3 ) ,Z( 3 ) ,QPRIM( 3 ) ,APRIM1 3  )  ,INTEG( 3  )  ,AAVG( 3  ) , 
C  QQBD(  6  )  ,RRBDI  6  )  ,SBD(  6  )  ,QBO(  6  )  ,ABD(  6  ) 

INTEGER  BNDRY,BDPRS,J,HALT,SK,BORY,K,L,M,T 

DOUBLE  PRECISION  RRBD ,gQBD ,SBD ,QBO ,ABD ,60PR,BDOR,BDTR,OELQQH, 
C  DELQQL,DELRRH,DELSH>DELSL>DELQH,DELAH,DELQL> 

C  DELAL ,H ,EE ,DELT ,QQINT ,RRINT ,SINT ,QPRIM,APRIM, 

C  AINT,Z,SAVG,AAVG,Q1,Q2,A2,A1,RR1,QQ1,S1,QQ2,RR2, 

C  S2,DLTAQQ,DLTARR,DLTAS,INTEG,QQSTEP,RRSTEP,D2, 

C  SSTEP, NEWQQl, NEHRRl, NEWS1,G,G1,G2,DELRRL,T2,P2, 

C  AR,DQ,VS,H,QB,NEWTR,NEW0R,NEWPR,EE1,EE2,QRR,QQQ 

COMMON  AR,OQ,VS,W 
C 

C  DETERMINE  CURRENT  PRESSURE  AT  NODE  JUST  PRIOR  TO  BOUNDARY  

C 

T2  =  (  (QQ2-RR2)»*2  )/(<♦.  DOO*rS2»*2)  ) 

02  =  ((1.000/T2)»DEXP(G»(1.000-G)*(S2-G2)))»«(-G1) 

P2  =  T2  »  02 
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c 

—  DETERMINE  IF  LEF 

c 

IF(BORY.EQ.I)  Tl 

K  »  1 

L  =  2 

M  =  5 

ELSE 

K  s  6 

L  =  5 

M  =  4 

END  IF 

IF((J.EQ.1).AND 

QBD(K)  =  0.000 

END  IF 

QQBO(L)  =  QQl 

QQBO(M)  =  QQZ 

RRBO(L)  =  RRI 

RRBD(M)  =   RR2 

SBD(L)  =  SI 

SBO(M)  =  32 

QBO(L)  =  Ql 

QBD(M)  =  Q2 

ABD(L)  =  Al 

ABO(N)  =  A2 

THEN 


,(BNDRY.EQ.O).AND.(BDPRS.EQ.O))  THEN 


C 

C  DETERMINE  IF  BOUNDARY  IS  OPEN  OR  CLOSED,  AND  SET  PROPER  

C VALUES  AT  PHANTOM  NODE  "LBD".  BNDRY  =  11  CLOSED ) ,0( OPEN) 

C 

5  IF  (BNDRY.EQ.l)  THEN 

RRBDIK)  =  -QQBD(M) 
QQBOIK)  =  DABS(RRBD(M)) 
SBD(K)  =  SBD(M) 
QBO(K)  =  -QBO(M) 
ABO(K)  =  ABO(M) 
GO  TO  10 
ELSE  IF  (BOPRS.EQ.l)  THEN 
IF  (J.EQ.l)  THEN 

RRBD(K)  =  RRBD(L) 
QQBO(K)  =  QQBD(L) 
SBDIK)  =  SBD(L) 
ABDIK)  =  ABD(L) 
QBD(K)  =  QB 
END  IF 
GO  TO  10 
ELSE  IF  ( (B0PR-P2).LE.0.1D00)  THEN 
C  IF(SK.EQ.3)  GO  TO  35 

SBD(K)  =  SBD(L) 

BDDR  =  ((l.D00/BDPR)»(DEXP((SBD(K)-62)»(-(G/Gl))))) 
C  »»(-(l.D00/G)) 

8DTR  =  ((BD0R1»»(1.D00/G11)*0EXP(G»(1.D00-G)»(SBD(K)-G2)) 
RRBD(K)  =  QBO(K)-(OSQRT(BDTRn*SBD(K) 
QQBO(K)  =  QBD(K)4(0SQRT(BDTR) )»SB0IK) 
ABD(K)  =  (QQBD(K)  -  RRBDIK  ))  /  ( 2.D00*SBD(K ) ) 
RRBD(L)  =  RRBDIK) 
QQBO(L)  =  QQBD(K) 
SBD(L)  =  SBDIK) 
QBD(L)  =  QBOIK) 
ABOIL)  =  ABDIK) 


GO  TO  10 


ELSE 


PRINT  »  ,'THE  OPEN  BOUNDARY  HAS  A  PRESSURE  HELD  CONSTANT  ' 
PRINT  *    ,'THAT  IS  HIGHER  THAN  THE  PRESSURE  INSIDE  THE  TUBE' 
PRINT  »  , 'ADDITIONAL  CODE  IS  NEEDED  TO  PRECEDE' 
HALT  =  1 
GO  TO  20 
END  IF 

C 

C  r   CALCULATE  THE  JUMP  TO  THE  NEXT  TIME  STEP  USING  CHARACTERISTICS— 

C 
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c 

C  CHECK  FOR  SHOCK  LEAVING  TUBE  OR  WITHIN  H  OF  BOUNDARY  AND  PICK  — 

C  CHOSE  APPROPRIATE  ALGORITHM  TO  ADVANCE  BOUNDARY  TO  NEXT  TIME  

C 

10  IFCSK.EQ.Z)  THEN 

IF(BDRY.EQ.2)  THEN 

CALL  SKJUMP(ABD(L4l),QBD(L-^l),SBD(L«l),AR,Dq>VS,G>Gl,W, 
C  ABD(L),QBO(L),SBO(L)) 

QQBD(L)  =  QBO(L)  *   ABD( L  )kSBD( L) 
RRBD(L)  =  QBO(L)  -  ABO( L  )«SBD( L  ) 
GO  TO  35 
ELSE  IF(BDRY.EQ.3)  THEN 

CALL  SKJUMP(AB0(L-1),QBD(L-1),SB0(L-I),AR,D(3,VS,G,G1,W, 
C  ABO(L  ),QBO(L)>SBO(L) ) 

QQBO(L)  =   qBD(L)  ••-  ABO(  L  )»SBOI  L  ) 
RRBD(L)  =  QBO(L)  -  ABO( L  )mSBD( L  ) 
GO  TO  35 
END  IF 
END  IF 

DELQQL  =  QQBD(L1  -  QQBO(L-l) 

DELQQH  =  QQBD(L*1)  -  QQBO(L) 

DELRRH  =  RRB0(L+1)  -  RRBO(L) 

DELRRL  =  RRBO(L)  -  RRBO(L-l) 

DELSH  =  SB0(L*1)  -  SBO(L) 

DELSL  =  SBD(L)  -  SBD(L-U 

DELQH  =  (3BD(Ltl)  -  QBO(  L  ) 

DELQL  =  QBD(L)  -  QBO(L-l) 

DELAH  -  ABD(L«1)  -  ABO(L) 

OELAL  =  ABOrL)  -  ABO(L-l) 

IF((BNORY.EQ.O).AND.(SK.EQ.l))  THEN 

IF  (BDRY.EQ.Z)  THEN 

CALL  CON03(  QBO(  L  )  ,QBD(  L-f  1 )  ,ABO(  L  ) ,  ABD(  L-^l )  ,RRBO(  L  )  ,QQBO(  L  ) , 
C  SBD(L),OELQQH, DELRRH, DELSH, DELQH, OELAH,OELT,H,EE, 

C  QQINT ,RRINT ,SINT ,QPRIM , APRIM , AINT ) 

ELSE 

CALL  C0ND2( QBO( L  )  ,QBD( L-1 ) ,ABD( L  )  ,ABD( L-1 1  ,RRBD( L  )  ,QQBO( L  ) , 
C  SBO(L), DELQQL, DELRRL, DELSL, DELQL, DELAL,OELT,H,EE, 

C  QQINT, RRINT,SINT,QPRIM, APRIM, AINT) 

END  IF 
ELSE  IF((BNDRY.EQ.l).ANO.(SK.EQ.l))  THEN 
QQSTEP  =  O.DOO 
RRSTEP  =  O.DOO 
SSTEP  =  0.000 
GO  TO  30 
C 

C  USE  CONDITION  1  ALGORITHM  TO  CALCULATE  RRINT , QQINT ,3INT  

C 

ELSE 

CALL  CONDK  QBD(  L  )  ,QB0(  L-*-!  )  ,ABD(  L  )  ,ABD(  L-M  1  ,RRBD(  L  )  ,QQBD(  L  )  r 
C  SBD( L  ), DELQQL, DELRRH, DELSH, DELSL, 

C  DELQH, DELAH, OELQL,DELAL,H,EE,OELT, QQINT, RRINT ,SINT, 

C  QPRIM, APRIM, AINT, QBD( L-1 )  ,AB0( L-1 ) ) 

END  IF 
C 

C      CALCULATE  DLTA  QQ,  OLTA  RR  i   DLTA  S 

C 

DLTAQQ=QQINT-QQBD( L ) 
DLTARR=RRINT-RRBD( L ) 
DLTAS=SINT-SBO(L) 
C 

C.       CALCULATE   Z(K)'S 

C 

c 

AAVG( 1 )=( AINT( 1 HABD(  L ) )/2 .0000 

AAVG( 3  )  =  »  AINT( 3 )  +  ABD( L ) )/2 . ODOO 

AAVGI Z  )=O.0DOO 

SAVG  =  1SINT4SBD( L))/2.D00 

Z( 1  )=-( 1 , 0D00/G2  )*AAVG( 1  )»( SAVG-G2  )»( QPRIMI 1 )-G2»APRIM(  1 ) ) 

ZC  3  )  =  (  1 .  0D00/G2  )»AAVG(  3  )*(  SAVG-G2  )*(  qPRIM(  3  )*G2)*APRIM(  3  ) ) 
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Z(2)s0.0D00 
C 
C  INTEGRATE  THE  Z(K)'S  

C 

1NTEG(2)=0.0000 

1NTEGC1)=Z(U5*0ELT 

INTEG(3)=Z(3J*DELT 
C 
C       SOLVE  THE  EQUATION  

C 

QQSTEP=OLTAQQ*INTEG(  1 ) 
RRSTEP=DLTARR*INTEG( 3  ) 
SSTEP=OLTAS+INTEG( 2  ) 
C 

C       STORE  THE  SOLUTION  

C 

30   NEWQQ1=QQBD(L)+QQSTEP 

NEWRR1=RRB0( L  )+RRSTEP 
NEWS1=SB0(L)*SSTEP 
C 

C  UPDATE  PHANTOM  NODES  FOR  OPEN  BOUNDARY  CONDITION  

C 

35   IF  ((BNDRY.EQ.O).ANO.(BDPRS.EQ.1))THEN 
RRBO(K)  =  RRBO(L) 
QQBOIK)  =  QQBD(L) 
SBO(K)  =  SBDCL) 
ABD(K)  =  ABD(L) 
QBD(K)  =  QBD(L) 
END  IF 

IF  ((BNDRY.EQ.O).AND.(BOPRS.EQ.O))  THEN 
IF  (SK,EQ.2)  THEN 

QBO(K)  =  (QQB0(L)4RRBDCL))  /  2.D00 
ELSE 

NEHTR=  ((NEWQQl  -  NEWRRl  )»»2  )/( 4.D00»( ( NEWS1)»»2  )  ) 
NEWDR=  ( ( l.aOO/NEWTR  )*DEXP(G»( l.DOO-G )*(  NEWS1-G2 ) ) ) 
C  »»(-Gl) 

NEWPR=  NEWTR*NEWDR 
EEl  =  DABS(BDPR-NEWPR) 
EE2  =  DABS(SBD(L)-NEWS1) 

IF  ((EEl.GT.0.1D-5).OR.(EE2.GT.0.1D-5))  THEN 
QRR=  NEWRRl  ♦  ( DSQRT( BDTR  )  )*SBD( L  ) 
QQQ=  NEWQQl  -  ( DSQRTI BDTR  )  )»SBD( L  ) 
QBO(K)  =  (QRR+QQQ)/2.000 
GO  TO  5 


END 

IF 

END 

IF 

END  IF 
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QQl  = 

QQBD(L) 

RRl 

=  RRBO(L) 

SI  = 

SBO(L) 

Ql  = 

QBO(L) 

Al  = 

ABO(L) 

RETURN 

END 

SUBROUTINE  SRFLCT(QQA,RRA,SA, SIGMA, VS,OELT,LWPRES,RRB>QQB, SB, QB, 
C  AB,G,G1,G2) 

C 

C  »  * 

C        »  SHOCK  REFLECTION  AT  SOLID  BOUNDARY  SUBROUTINE      » 

C        »  » 

C 

c 

C  VARIABLE   OEFINITIONS  

C 

C  DELTEX  -  THE  EXCESS  TIME  IN  A  TIME  STEP  WHEN  THE  SHOCK  IS 

C  EXACTLY  AT  THE  SOLID  WALL 
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C     DELTHL  -  THE  TIME  FOR  THE  SHOCK  TO  REACH  THE  HALL 

C 

DIMENSION  SIGMA(4,2) 

IffTEGER  LHPRES 

DOUBLE  PRECISION  QA,QB,AA»AB,SA, SB >QQA,QQB,RRA,RRB, SIGMA, 
C  DQ,M,AR,PR,DR,EREIMN,SA1,SA2,VS,0ELT,DELTWL, 

C  DELTEX,G,G1,G2 

C 

C  CALCULATE  THE  TIME  FOR  SHOCK  TO  REACH  WALL,  AND  EXCESS  TIME  ~ 

C IN  THIS  TIME  STEP 

C 

IF  (LWPRES.EQ.2)  THEN 

OELTWL  =  (1.000-SIGMA{l,in/VS 

DELTEX  =  OELT  -  OELTWL 
C 

C  CALCULATE  VELOCITY  GRADIENT  OVER  SHOCK  AS  IT  REFLECTS  

C 

QA  s  (QQA^RRA)/2.D00 

QB  =  0.000 

AA  3  (QQA-RRA)/(2.D00»SA) 

DQ  s  ( QB-QA  l/AA 
C 

C CALCULATE  W 

C 

W  =  DSQRT(((DQ»»2)»O.36DOO)+l.D00)  -  (Dq*0.6D00) 
C 

C  FOR  SHOCK  AT  LEFT  BOUNDRY  00  THE  SAME  

C 

ELSE 

QQB=QQA 

RRB=RRA 
SB=SA 

DELTWL  =  (DABS(SIGMA(l,in-O.DOO)/DABS(VS) 

DELTEX  =  DELT  -  DELTWL 
C 

C  CALCULATE  VELOCITY  GRADIENT  OVER  SHOCK  AS  IT  REFLECTS  

C 

QB  -    (QQB+RRB)/2.D00 

QA  =  0.000 

AB  =  (QQB-RRB)/(2.000*SB) 

DQ  =  (QA-QB)/AB 
C 

C  CALCULATE  EXACT  REIMAN  VARIABLE  JUMP  FROM  DQ  

C 

W  =  OSQRT(((DQ«*2)W0.36DOO)4'1.DOO)  >  (DQ«0.6D00) 

END  IF 
C 

C  CALCULATE  AR,PR,DR  OVER  SHOCK  

C 

AR=DSQRT( 2.D00*(G-1.D00)»( l.D00+( ( G-l.DOO )*W»W/2. DOO ) )» 
C         ( G*G2*W»W-1 . 000  )  )/( ( G-H . 000  l»W  ) 

PR=(  2 .  DOO*G/(  G+1 .  000  )  )*W*tW-(  (  G-1 .  000  )/(  G+1 .  DOO  ) ) 

DR=( (G-1.000)*W*W+2.D00  )/( (G+1. 000 )*W*W) 

SAl  =  (Gl/G  )*DLOG(  (2.000»G»(W»*2)-G*l.D00)/(G-fl.000)) 

SA2  =  G1»DL0G( ((G-l.D00)»(W»*2)+2)/( (G+1.D00)»(W»*2))) 
C 

C  CALCULATE  ENTROPY  AND  SPEED  OF  SOUND  BEHIND  SHOCK  

C 

IF  C LWPRES.EQ.2)  THEN 

SB  =  SA  -  SAl  -  SA2 

AB  =  AA)»AR 
C 

C  CORRECT  REIMAN  VARIABLES  AT  BOUNDARY  

C 

RRB  =  QB  -  AB»S8 

QQB  =  QB  ♦  AB**SB 
C 

C  CALCULATE  NEW  SHOCK  SPEED  

C 
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VS   "    nRRA4QQA)K0.5000)   -    (W»AA) 

c 

C  CALCULATE  POSITION  OF  REFLECTED  SHOCK  AT  END  OF  THIS  TIME  STEP- 

C 

SIGMA(1,2)   =  VSJtOELTEX  ♦   l.DOO 

LWPRES   «  3 
C 

C  SHOCK  REFLECTING  AT  LEFT  BOUNDARY  

C 

ELSE 

SA  B  SB  -  SAl  -  SA2 

AA  3  AB»AR 
C 

C  CORRECT  REIMAN  VARIABLES  AT  BOUNDARY  

C 

RRA  =  QA  -  AA»SA 

QQA  s  QA  ♦  AA»SA 
C 

C  CALCULATE  NEW  SHOCK  SPEED  

C 

VS  »  ((RRB*Q(3B)*0.5D00)  ♦  (W»AB) 
C 

C  CALCULATE  POSITION  OF  REFLECTED  SHOCK  AT  END  OF  THIS  TIME  STEP- 

C 

SIGMA(1,2)  =  VS»OELTEX 

LWPRES  =  2 

RRB=RRA 

QQB=QQA 
SB=SA 
QB=QA 
AB=:AA 

END  IF 

RETURN 

END 
C 

SUBROUTINE  BBORY( RRl ,Qqi >S1 ,RR2 ,Qq2 ,S2  >A2 ,Q2 ) 
C 

C  »  * 

C        »         NODES  NEAR  BOUNDARY  SUBROUTINE  » 

C  »  * 

c 

DOUBLE  PRECISION  RR1,QQ1,S1,RR2,QQ2 ,S2 >A2 ,02 
RR2  =  RRl 
QQ2  =  QQl 
S2  =  SI 

A2  =  (QQ2  -  RR2)/(2.D00»S2) 
Q2  =  (QQ2  +  RR2)/2.D00 
RETURN 
END 
C 
C 

SUBROUTINE  BORDER! JSTOP ) 
C 

c  *  * 

C     *     PLOTTING  AREA  SETUP  ROUTINE  * 

C  n  » 


C 


INTEGER  I 

REAL  X0RG('*)/1.75,'i.65,1.75,'!».65/ 
REAL  Y0RG(  <+  )/2 .  75 , 2 .  75 , 5 .  80  , 5 .  80/ 
REAL  YMAX14)/5.5,5.5,1.5,6.20/ 
REAL  YMIN('+)/0.5,0.5,-0.S,'+.90/ 
DO  70  1=1,4 

CALL  PHYSOR(XORG(I),YORG(in 

CALL  NOBRDR 
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CALL  AREAZOC 2.4,2.4) 

CALL  FRAME 

CALL  GRAF ( 0 . , ' SCALE ',1.0 ,YMIN( I ) , 'SCALE ' ,YMAX( I ) ) 

CALL  ENOGR(O) 
70  COhfriNUE 

CALL  PHYSCRl 1.25,2. 25) 

CALL  NOBROR 

CALL  AREA2D(6.00,6.50) 

CALL  HEAOINf  'SHOCK  TUBE  RESULTS^ ' ,100,1.7,4) 

CALL  HEADIN( 'FIRST  ORDER     N  =101$ ' ,100,1. 2,4) 

CALL  HEAOINl 'DENSITY  RATIO  =  5.0    TEMP  RATIO  =  1$ ' ,100,1.0,4) 

CALL  HEA0IN( 'PRESSURE  RATIO  =  5.0$ ' ,100,1. 0,4 ) 

CALL  GRAFIO. , 'SCALE' ,1.,0. , 'SCALE' ,JSTOP ) 

CALL  ENDGR(O) 

RETURN 

END 


SUBROUTINE  PLOT( J.JSTOP ,N,Qq,RR,S,H ,XARRAY, 
«P ARRAY ,D ARRAY ,gARRAY ,SARRAY ,6 ,61 ,62  I 

C 

c  »  * 

C     »        GRAPHICAL   PLOTTING   ROUTINE         » 
C  *  * 

C 

INTEGER  I ,N , J , JSTOP ,KNT( 4 )/l ,4,6,9/ 

DIMENSION  Qg(  N ) ,RR(  N ) ,S( N ) ,XARRAY( N ) ,QARRAY( N )  ,PARRAY( N ) , 
C  DARRAY(N),SARRAY(N) 

DOUBLE  PRECISION  QQ,RR,S,H ,G,G1 ,G2 
REAL  XARRAY,QARRAY,PARRAY,OARRAY 
REAL  SARRAY,TEMP,HR,G1R,GR,G2R 
REAL  XORGl 4  )/l . 75 ,4 . 65 , 1 . 75 ,4 . 65/ 
REAL  YORG(4)/2.75,2.75,5.30,5.30/ 
REAL  YMAX(<^)/5.5,S.S,1.0,6.20/ 
REAL  YMIN(4)/0.5,0.5,-1.0,4.90/ 
CHARACTER*^  lYNAM 
DIMENSION  IYNAM(13) 

DATA  I YNAM/ ' PRES  * , ' SURE ' , ' $    ' , ' DENS ' , 
»'ITY$','VELO' ,'CITY' ,'$    ', 'MODI ',' FIED ','  ENT ', 'ROPY' , '«    '/ 
C 

C  CONVERT  DOUBLE  PRECISION  TO  SINGLE  PRECISION  

C 

GR=SNGL(G) 
G1R=SNGL(G1) 
G2R=SNGL(G2) 
HR=SNGL(H) 
DO  80  1=1, N 

QARRAYt I  )  =  ( SNGL( QQ( I )+RR(  I ) )/2 . 0 ) 

TEMP=SNGL(Qt3(I  )-RR(  I  ))»SNGL(QQ(I  )-RR(I)  )/(  4.  0*SNGL(  S(  I  )»S(  I  )  )  ) 
OARRAYI I  )  =  ( ( 1 . 0/TEMP  )»EXP( GR»l 1 . 0-GR  )*( SNGL( S( I  )  )-G2R  ) )  )»»( -GIR  ) 
SARRAY(I)=SNGL(S(I)) 
PARRAYI I  )=TEMP»OARRAY(  I ) 
80   CONTINUE 

DO  83  1=1,4 

CALL  PHYS0R(X0RG(I),Y0RGJI1) 

CALL  AREAZDt  2.<f,2.'+) 

CALL  XNAMEC  'X' ,1) 

CALL  YNAME(IYNAM(KNT(I)),100) 

CALL  GRAF(0.  , 'SCALE'  ,1. 0 ,YMIN( I ) , "SCALE ' ,YMAX( I ) ) 

IF  (I.EQ.l)  CALL  CURVE(XARRAY,PftRRAY,N,0) 

IF  (I.EQ.2)  CALL  CURVE(XARRAY,DARRAY ,N,0 ) 

IF  «I.EQ.3)  CALL  CURVE(XARRAY ,QARRAY ,N,0  ) 

IF  (I.EQ.4)  CALL  CURVE ( XARRAY ,SARRAY ,N,0 ) 

CALL  ENDGR(O) 
33  CONTINUE  ,   , 

RETURN 
END 
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SUBROUTINE  EXACT(N.XINIT,T,VHEA0,VTA1L,VC0E,VSE,DLC0,0LSH,QQ,RR,S, 
«H>XARRAY,0ARRAY,G,G1,G2,DRI ) 
C 

c  »  * 

C     »     EXACT  SOLUTION  COMPARISON  ROUTINE        « 
C     »  » 

C 

INTEGER  N 

DIMENSION  QQ( N ) ,RR( N ) ,S( N ) ,XEXACT( 6 ) .YEXACTC  6 ) ,XARRAY( N ) , 
C  OARRAY(N) 

DOUBLE  PRECISION  QQ,RR ,S,H,G,G1 ,G2 ,T ,ORI 

REAL  XEXACT , YEXACT ,XINIT ,VHEAD ,VTAIL , VCDE 

REAL  VSE ,DLCD ,DLSH ,TEMP ,XARRAY ,DARRAY 
C 

XEXACT( 11=0.0 

XEXACT( 2  )=XINIT*T»VHEAD 

XEXACT( 3  )=XINIT+T»VTAIL 

XEXACTC  <♦  )=XINIT+T»VCDE 

XEXACT( 5  )=XINIT+T»VSE 

XEXACT(6)=1.0 

YEXACTC 1)=SNGL(DRI) 

YEXACTC 2  )=YEXACT(1) 

YEXACT(3)=DLCD 

YEXACT(<:»)=YEXACT(5) 

YEXACTC 5  )=OLSH 

YEXACTC 6  1  =  1.0 
C 

DO  90  1=1 ,N 

qgci)=SNGLCQgci)) 

RRCI)=SNGL(RRCI)) 
SCI1=SNGL(SII)) 

TEMP=(  QQC I  )-RRC  I )  1*C  QQ(  1 1-RRC I )  )/C  <*.  0»S(  I  )»SC  I  ) ) 
DARRAYC I )  =  C  C 1. 0/TEMP )»EXPC  G»C 1. 0-G )»C  SC I )-G2  ) )  )»*{ -Gl ) 
90  CONTINUE 

CALL  PHYSORC 2.65,2.25) 

CALL  NOBRDR 

CALL  AREA2D(6. 75,4.0) 

CALL  XNAMEC  'X' ,1) 

CALL  YNAME! 'DENSITY ',7) 

CALL  HEADINl 'DENSITY  DISTRIBUTIONS ' ,100 ,1 . 3,4 ) 

CALL  HEAOINC  'FIRST  ORDER       N  =101$ ' ,100 ,1.0,4) 

CALL  HEADINl  'DENSITY  RATIO  =  5     TEMP  RATIO  =  1$ '  ,100,1.0 ,4 ) 

CALL  HEADINC  'PRESSURE  RATIO  =  5$ * , 100,1. 0 ,4  ) 

CALL  LINESC  'EULER-1  SOLUTIONS ' ,IPKRAY ,2 ) 

CALL  LINESC  'EXACT  SOLUTIONS' ,IPKRAY,1 ) 

CALL  FRAME 

CALL  GRAF( 0.0, 'SCALE' ,1.0,0.0, 'SCALE ' ,6.0) 

CALL  MARKERCO) 

CALL  CURVEC XEXACT, YEXACT, 6,-1) 

CALL  LEGLIN 

CALL  CURVEC XARRAY,DARRAY,N,0) 

CALL  LEGENDCIPKRAY,2,4.2S,2.75) 

CALL  ENOGRCO) 

RETURN 

END 
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